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CHAPTER  1 


INTRODUCTIOI 


The  Ada  inplementation  described  above  was  tested  according  to  the  Ada 
Validation  Procedures  (Pro901  against  the  Ada  Standard  [Ada831  using  the 
current  Ada  Conpiler  Validation  Capability  (ACVC).  This  Validation  Summary 
Report  (VSR)  gives  an  account  of  the  testing  of  this  Ada  implementation. 
For  any  technical  terms  used  in  this  report,  the  reader  is  referred  to 
(Pro90].  A  detailed  description  of  the  ACVC  may  be  found  in  tha  current 
ACVC  User's  Guide  [UG891. 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  Ada 
Certification  Body  may  make  full  and  free  public  disclosure  of  this  report. 
In  the  United  States,  this  is  provided  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply 
only  to  the  conputers,  operating  systems,  and  conpiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statements  set  forth  in  this  report  are 
accurate  euid  conplete,  or  that  the  subject  implementation  has  no 
nonconformities  to  the  A^  Standard  other  than  those  presented.  Copies  of 
this  report  are  available  to  the  public  from  the  AVF  which  performed  this 
validation  or  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  VA  22161 

Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  \diich  performed  this  validation  or  to: 

Ada  Validation  Organization 

Conputer  and  Software  Engineering  Division 

Institute  for  Defense  Analyses 

1801  North  Beauregard  Street 

Alexandria  VA  22311-1772 
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1.2  REFERENCES 

[Ada83]  Reference  Manual  for  the  Ada  Prograinminq  Language, 
ANSI/MIL-STD-1815A,  Febnoary  1583  and  ISO  8652-1987 . 

(Pro90]  Ada  Compiler  Validation  Procedures,  Version  2.1,  Ada  Joint 
Program  office,  August  1990. 

(UG891  Ada  Compiler  Validation  Capability  User^s  Guide,  21  June  1989. 


1.3  ACVC  TEST  CLASSES 

Compliance  of  Ada  inplementations  is  tested  by  meems  of  the  ACVC.  Ihe  ACVC 
contains  a  collection  of  test  prograuns  structured  into  six  test  classes:  A, 
B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies  the  class  to 
which  it  belongs.  Class  A,  C,  D,  and  E  tests  are  executable.  Class  B  and 
class  L  tests  are  expected  to  pro^ce  errors  at  conpile  time  and  link  time, 
respectively. 

The  executable  tests  are  written  in  a  self-checking  manner  and  produce  a 
PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the  result  when  they 
are  executed.  Three  Ada  library  units,  the  packages  REPORT  and  SPPRT13, 
and  the  procedure  CHECK_FILE  are  used  for  this  purpose.  The  package  REPORT 
also  provides  a  set  of  identity  functions  used  to  defeat  some  coiipiler 
optimizations  allowed  by  the  Ada  Standard  that  would  circiunvent  a  test 
objective.  The  package  SPPRT13  is  used  by  many  tests  for  Chapter  13  of  the 
Ada  Standard.  The  procedure  CHECK  FILE  is  used  to  check  the  contents  of 
text  files  written  some  of  the  Class  C  tests  for  Chapter  14  of  the  Ada 
Standard.  The  operation  of  REPORT  and  CHECK_FILE  is  checked  by  a  set  of 
executable  tests.  If  these  units  are  not  operating  correctly,  validation 
testing  is  discontinued. 

Class  B  tests  check  that  a  con^iler  detects  illegal  language  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  conpil^  and  the 
resulting  conf>ilation  listing  is  examined  to  verify  that  all  violations  of 
the  Ada  Standard  are  detected.  Some  of  the  class  B  tests  contain  legal  Ada 
code  which  must  not  be  flagged  illegal  by  the  compiler.  This  behavior  is 
also  verified. 

Class  L  tests  check  that  an  Ada  implementation  correctly  detects  violation 
of  the  Ada  Standard  involving  multiple,  separately  cotqpiled  units.  Errors 
are  expected  at  link  time,  and  execution  is  attempted. 

In  some  tests  of  the  ACVC,  certain  macro  strings  have  to  be  replaced  by 
implementation-specific  values  —  for  example,  the  largest  integer.  A  list 
of  the  values  used  for  this  implementation  is  provid^  in  ;^ppendix  A.  In 
addition  to  these  anticipated  test  modifications,  additional  changes  may  be 
required  to  remove  unforeseen  conflicts  between  the  tests  and 
implementation-dependent  characteristics.  The  modifications  rekjuired  for 
this  implementation  are  described  in  section  2.3. 
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For  each  Ada  irt5)lementation,  a  customized  test  suite  is  produced  by  the 
AVF.  This  customization  consists  of  making  the  modifications  described  in 
the  preceding  paragraph,  removing  withdravm  tests  (see  section  2.1),  and 
possibly  removing  some  inapplicable  tests  (see  section  2.2  and  [UG89]). 

In  order  to  pass  an  ACVC  an  Ada  implementation  must  process  each  test  of 
the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERMS 

Ada  Conpiler  The  software  and  any  needed  hardware  that  have  to  be  added 
to  a  given  host  and  target  computer  system  to  allow 
transformation  of  Ada  programs  into  executable  form  and 
execution  thereof. 

Ada  Coirpiler  The  means  for  testing  compliance  of  Ada  implementations. 
Validation  consisting  of  the  test  suite,  the  support  programs,  the  ACVC 
Capability  user's  guide  and  the  tenplate  for  the  validation  summary 

(ACVC)  report. 

Ada  An  Ada  compiler  with  its  host  computer  system  and  its 

Inplementation  target  computer  system. 

Ada  Joint  The  part  of  the  certification  body  vrtiich  provides  policy  and 
Program  guidance  for  the  Ada  certification  system. 

Office  (AJPO) 

Ada  The  part  of  the  certification  body  which  carries  out  the 

Validation  procedures  required  to  establish  the  compliance  of  an  Ada 
Facility  (AVF)  implementation. 

Ada  The  part  of  the  certification  body  that  provides  technical 

Validation  guidance  for  operations  of  the  Ada  certification  system. 

Organization 
(AVO) 

Ccmpliance  of  The  ability  of  the  implementation  to  pass  an  ACVC  version, 
an  Ada 

Implementation 

Ccnrputer  A  functional  un^t,  consisting  of  one  or  more  computers  and 

System  associated  software,  that  uses  common  storage  for  all  or 

part  of  a  program  and  also  for  all  or  part  of  the  data 
necessary  for  the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including  arithmetic 
operations  and  logic  operations;  and  that  can  execute 
programs  that  modify  themselves  during  execution.  A 
computer  system  may  be  a  stand-alone  unit  or  may  consist  of 
several  inter-connected  units. 
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Conformity 


Customer 


Declaration  of 
Conformance 


Host  Conputer 
System 

Inapplicable 

test 

ISO 

LRM 


Operating 

System 


Target 

Conputer 

System 

Validated  Ada 
Conpiler 

Validated  Ada 
Inplementation 

Validation 


Withdrawn 

test 


Fulfillment  by  a  product,  process,  or  service  of  all 
requirements  specified. 

An  individual  or  corporate  entity  who  enters  into  an 
agreement  with  an  AVF  which  specifies  the  terms  eind 
conditions  for  AVF  services  (of  any  kind)  to  be  performed. 

A  formal  statement  from  a  customer  assuring  that  conformity 
is  realized  or  attainable  on  the  Ada  inplementation  for 
v^ich  validation  status  is  realized. 

A  computer  system  vdiere  Ada  source  programs  are  treu'.sformed 
into  executable  form. 

A  test  that  contains  one  or  more  test  objectives  found  to  be 
irrelevcint  for  the  given  Ada  implementation. 

International  Organization  for  Standardization. 

The  Ada  standard,  or  Leinguage  Ref(...ence  Manual,  published  as 
ANSI/MIL-STD-1815A-1983  and  ISO  8652-1987.  Citations  from 
the  LRM  take  the  form  "<section>.<subsection>:<paragraph>." 

Software  that  controls  the  execution  of  programs  and  that 
provides  services  such  as  resource  allocation,  scheduling, 
input/output  control,  and  data  management.  Usually, 
operating  systems  are  predominantly  software,  but  partial  or 
complete  hardware  implementations  are  possible. 

A  conputer  system  vhere  the  executable  form  of  Ada  programs 
are  executed. 


The  conpiler  of  a  validated  Ada  inplementation. 


An  Ada  inplementation  that  has  been  validated  successfully 
either  by  AVF  testing  or  by  registration  (Pro90]. 

The  process  of  checking  the  conformity  of  an  Ada  conpiler  to 
the  Ada  programming  language  and  of  issuing  a  certificate 
for  this  inplementation. 

A  test  found  to  be  incorrect  and  not  used  in  conformity 
testing.  A  test  may  be  incorrect  because  it  has  an  invalid 
test  objective,  fails  to  meet  its  test  objective,  or 
contains  erroneous  or  illegal  use  of  the  Ada  programming 
leuiguage. 
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CHAPTER  2 

IMPLEMENTATION  DEPENDENCIES 


2.1  WITHDRAWN  TESTS 

The  following  tests  have  been  withdrawn  by  the  AVO.  The  rationale  for 
withdrawing  each  test  is  available  from  either  the  AVO  or  the  AVF.  The 
publication  date  for  this  list  of  withdrawn  tests  is.  2  August  1991. 


E28005C 

B28006C 

C32203A 

C34006D 

C35508I 

C35508J 

C35508M 

C35508N 

C35702A 

C35702B 

B41308B 

C43004A 

C45114A 

C45346A 

C45612A 

C45612B 

C45612C 

C45651A 

C46022A 

B490C8A 

B49008B 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

C83026A 

B83026B 

C83041A 

B85001L 

C86001F 

C94021A 

C97116A 

C98003B 

BA2011A 

CB7001A 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21E 

CD2A23E 

CD2A32A 

CD2A41A 

CD2A41E 

CD2A87A 

CD2B15C 

BD3006A 

BD400aA 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD4031A 

CD4051D 

CD5111A 

CD7004C 

ED7005D 

CD7005E 

AD7006A 

CD7006E 

AD7i0lA 

AD7201E 

CD7204B 

AD7206A 

BD8002A 

BD8004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

2.2  INAPPLICABLE  TESTS 

A  test  is  inapplicable  if  it  contains  test  objectives  which  are  irrelevant 
for  a  given  Ada  implementation.  Reasons  for  a  test's  inapplicability  may 
be  supported  by  documents  issued  by  the  ISO  euid  the  AJPO  known  as  Ada 
Commentaries  and  commonly  referenced  in  the  format  Al-ddddd.  For  this 
implementation,  the  following  tests  were  determined  to  be  inapplicable  for 
the  reasons  indicated;  references  to  Ada  Commentaries  are  included  as 
a[propriate. 
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The  following  285  tests  have  floating-point  type  declarations 
requiring  more  digits  than  SYSTEM. ^lAX_DIGITS: 


C24113F..Y  (20  tests) 
C35706F..y  (20  tests) 
C35708F..Y  (20  tests) 
C45241F..Y  (20  tests) 
C45421F..Y  (20  tests) 
C45524F..Z  (21  tests) 
C45641F..Y  (20  tests) 


C35705F..Y  (20  tests) 
C35707F..Y  (20  tests) 
C35802F..Z  (21  tests) 
C45321F..Y  (20  tests) 
C45521F.  Z  (21  tests) 
C45621F..Z  (21  tests) 
C46012F..Z  (21  tests) 


The  following  21  tests  check  for  the  predefined  type  SHORr_INTEGER; 
for  this  implementation,  there  is  no  such  type: 


C35404B 

B36105C 

C45231B 

C45304B 

C45411B 

C45412a 

C45502B 

C45503B 

C45504B 

C45504E 

C45611B 

C45613B 

C45614B 

C45631B 

C45632B 

B52004E 

C55B07B 

B55B09D 

B86001V 

C86006D 

CD7101E 


C35404D,  C45231D,  B86001X,  C86006E,  and  CD7101G  check  for  a  predefined 
integer  type  with  a  name  other  than  INTEGER,  LONG_INTEGER,  or 
SHORT_INTEGER;  for  this  implementation,  there  is  no  such  type. 

C35713B,  C45423B,  B86001T,  and  C86006H  check  for  the  predefined  type 
SHORT_FLQAT;  for  this  iir{)ltmentation,  there  is  no  such  type. 

C35713D  and  B86001Z  check  for  a  predefined  floating-point  type  with  a 
name  other  than  FLOAT,  LC»}G_FLCIAT,  or  SHORT_FLQAT;  for  this 
in^jlementation,  there  is  no  such  type. 

A35801E  checks  that  FLOAT' FIRST. .FLOAT' LAST  may  be  used  as  a  reuige 
constraint  in  a  floating-point  type  declaration;  for  this 
inplementation,  that  range  exceeds  the  range  of  safe  numbers  of  the 
largest  predefined  floating-point  type  and  must  be  rejected.  (See 
section  2.3.) 


C45531M..P  and  C45532M..P  (8  tests)  check  fixed-point  operations  for 
types  that  require  a  SYSTEM. MAX_hANTISSA  of  47  or  greater;  for  this 
inplementation,  MAXJIAITTISSA  is  less  than  47. 

C45536A,  C46013B,  C460UB^  C46033B,  and  C46034B  contain  length  clauses 
that  specify  values  for  'SMALL  that  are  not  powers  of  two  or  ten;  this 
inplementation  does  not  support  such  values  for  'SMALL. 

C45624A. .B  (2  tests)  check  that  the  proper  exc.ption  is  raised  if 
MACTiNEjCVERFLCWS  is  FALSE  for  floating  point  types  and  the  results  of 
various  floating-point  operations  lie  outside  the  range  of  the  base 
type;  for  this  iiH)lementation,  MACHINE  OVERFLCWS  is  TRUE. 
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D64005F..G  (2  tests)  use  10  levels  of  recursive  procedure  calls 
nesting;  this  level  of  nesting  for  procedure  calls  exceeds  the 
capacity  of  the  compiler. 

S86001Y  uses  the  name  of  a  predefined  fi.v.ed-point  type  other  than  type 
DURATIC^;  for  this  implementation,  there  is  no  such  type;. 

LA300‘1A,.B,  EA3004C..D,  and  CA3004E..F  (6  tests)  check  pragma  INLINE 
for  procedures  and  functions;  this  iitplementation  does  not  support 
pragma  INLINE. 

CD1009C  checks  whether  a  length  clause  can  specify  a  non-default  size 
for  a  floating-point  type;  this  implementation  does  not  support  such 
sizes. 

CD2A53A  checks  operations  of  a  fixed-point  type  for  which  a  length 
clause  specifies  a  power-of-ten  TYPE'SMALL;  this  implementation  does 
not  support  decimal  'SMALLs.  (See  section  2.3.) 

CD2A84A,  CD2A84E,  CD2A84I..J  (2  tests),  and  CD2A840  use  length  clauses 
to  specify  non-default  sizes  for  access  types;  this  implementatioii 
does  rot  support  such  sizes. 

The  following  264  tests  check  operations  on  sequential,  text,  and 
direct  access  files;  this  inplementation  does  not  support  external 
files  (see  Section  2.3  regarding  CE3413B): 


CE2102A. .C 

(3) 

CE2102G.  .H 

(2) 

CE2102K 

CF2102N. .Y 

(12) 

CE2103C. .D 

(2) 

CE2104A. .D 

(4) 

CE2HI5A..B 

(2) 

CE2106A. .B 

(2) 

CE2107A. .H 

(8) 

CE2107L 

CE2108A.  .H 

(8) 

CE2109A. .C 

(3) 

CE2110A. .D 

(4) 

CE2111A..I 

(9) 

CE2115A. .B 

(2) 

CE2120A..B 

(2) 

CE2201A..C 

(3) 

EE2201D. .E 

(2) 

CE2201F.  .N 

(9) 

CE2203A 

c:e2204a..d 

(4) 

CE2205A 

c:e2206a 

CE2208B 

CE2401A..C 

(3) 

EE2401D 

CE2401E..F 

(2) 

EE2401G 

CE2401H..L 

(5) 

CE2403A 

CE2404A..B 

(2) 

c:e2405d 

C:E2406A 

CE2407A.  .B 

(2) 

CE2408A.  .B 

(2) 

CE2409A. .B 

(2) 

CE241CA. .B 

(2) 

CE2411A 

CE3102A. .C 

(3) 

CE3102F..H 

(3) 

CE3102J. .K 

(2) 

CE3103A 

CE3104A..C 

(3) 

CE3106A. .B 

(2) 

CE3107B 

CE3108A. .B 

(2) 

CE3109A 

CE3110A 

CE3111A.  .B 

(2) 

CE3111D. .E 

v2) 

CE3112A..D 

(4) 

CE3114A. .B 

(2) 

CE3115A 

CE3119A. 

EE3203A 

EE3204A 

CE3207A 

CE3208A 

C:E3301A 

EE3301B 

CE3302A 

CE3304A 

CE3305A 

CE3401A 

CE3402A 

EE3402B 

CE3402C. .D 

(2) 

CE3403A..C 

(3' 

CE3403E..F 

(2) 

CE3404B..D 

(3) 

CE3405A 

EE3405B 

CE3405C. .D 

(2) 

CE3^06A. .D 

(4) 

CE3407A..C 

(3) 

CE3408A. .C 

(3) 

CE3409A 

CE3409C. .E 

(3) 

EE3409F 

CE3410A 

CE3410C..E 

(3) 

EE3410F 

CE34ilA 

CE3411C 

CE3412A 

EE3412C 

CE3413A..C 

(3) 

CE3414A 

CE3602A. .D 

(4) 

CE3603A 

CE3604A. .B 

(2) 

CE3605A.‘.E 

(5) 

CE3606A.  .B 

(2) 

CE3704A..F 

(6) 

CE3704M. .C 

(3) 

CE3705A.  .E 

(5) 

CE3706D 

CE3706F..G 

(2) 

CE3804A. .P 

(16) 

C:E3805A..3 

(2) 
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CE3806A..B  (2)  CE3806D..E  (2)  CE3806G. .H  (2)  CE3904A..B  (2) 
CE3905A..C  (3)  CE3905L  CE3906A..C  (3)  CE3906E..F  (?.) 


CE2103A,  CE2103B,  and  CE3107A  use  an  illegal  file  name  in  an  attempt  to 
create  a  file  and  expect  NAME_ERROR  to  be  raised;  tnis  in?)lementation  does 
not  support  external  files  and  so  rrises  U5E_EBR0R.  (See  section  2.3.) 


2.3  TEST  MODIFICATIONS 

Modifications  (see  section  1.3)  were  required  for  1339  tests. 

itie  following  tests  were  split  into  two  or  more  tests  because  this 
inplementation  did  not  report  the  violations  of  the  Ada  Standard  in  the  way 
expected  by  the  original  tests. 

B44004D  B59001E  B73004B  BAlOOlA 


C34009D  and  C34009J  were  graded  passed  by  Evaluation  Modification  as 
directed  by  the  AVO.  These  tests  checlt  that  'SIZE  for  a  composite  type  is 
greater  than  or  equal  to  the  sum  cf  its  components'  'SIZE  values;  but  this 
issue  is  addressed  by  AI->00825,  which  has  not  been  considered;  there  is  not 
an  obvious  interpretation.  This  implementation  represents  array  ccanponents 
whose  length  depends  on  a  discriminant  with  a  default  value  by  implicit 
pointers  into  the  heap  space;  thus,  the  'SIZE  of  such  a  record  type  might 
be  less  than  the  sum  of  its  components  'SIZES,  since  the  size  of  the  heap 
space  that  is  used  by  the  varying-length  array  components  is  not  counted  as 
part  of  the  'SIZE  of  the  record  type.  These  tests  were  graded  passed  given 
that  the  Report. Result  output  was  "FAILED"  and  the  only  Report. Failed 
output  was  "INCORRECT  'BASE'SIZE",  frcxn  line  195  in  C34009D  and  line  193  in 
C34009J. 

A35801E  was  graded  inapplicable  by  Evaluation  Modification  as  directed  by 
the  AVO.  The  conpiler  rejects  the  use  of  the  range  FLOAT' FIRST. .FLOAT' LAST 
as  the  range  constraint  of  a  floating-point  type  declaration  because  the 
bounds  lie  outside  of  the  range  of  safe  numbers  (cf.  LRM  3.5.7:12). 

C83030C  hni  C86007A  were  graded  passed  by  Test  Modification  as  directed  by 
the  AVO.  These  tests  were  modified  by  Inserting  "PRAGMA  ELABORATE 
(REPORT);"  before  the  package  declarations  at  lines  13  arxl  11, 
respectively.  Without  the  pragma,  the  packages  may  be  elaborated  prior  to 
package  Report's  body,  and  thus  the  packages'  calls  to  function 
REPORT.  lDElTr_lNT  at  lines  14  and  13,  respectively,  will  raise 
PROGRAM_ERROR. 

The  tests  below  were  graded  passed  by  Test  Modification  as  directed  by  the 
AVO.  These  tests  all  use  one  of  the  generic  suj^rt  procedures, 
Length_Check  or  Enum_Check  (in  support  files  LENCHECR.ADA  &  ENUMCHEK.ADA), 
which  “use  the  generic  procedure  Unchecked_Conversion.  This  implementation 
rejects  instantiations  of  Onchecked_Conversion  with  array  types  that  have 
non-static  index  ranges.  The  AVO  ruled  that  since  this  issue  was  not 
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addressed  by  AI-00590,  which  addresses  required  ijpport  fcr 
Unchecked  Conversion,  emd  since  AI-00590  is  considered  not  binding  under 
ACVC  l.ll,  the  support  procedures  could  be  modified  to  remove  the  use  of 
Unchecked_Conversion.  Lines  40.. 43,  50,  and  56.. 58  in  LENCHECK  and  lines 
42,  43,  eind  58.. 63  in  ENUMQIEK  were  commented  out. 

CD1009A  CD1009I  CD1009M  CD1009V  CD1009W  CD1C03A 

CD1C04D  CD2A21A..C  CD2A22J  CD2A23A.  .B  CD2A24A  CD2A31A.  .C 
•CD2A81A  CD3014C  CD3014F  CD3015C  CD3015E..F  CD3015H 

CD3015K  CD3022A  CD4061A 

♦CD2A81A,  cnZASlB,  CD2A81E,  CD2A83A,  CD2A83B,  CD2A83C,  emd  CD2A83E  were 
graded  passed  by  Test  Modification  as  directed  by  the  AVO.  These  tests 
check  that  operations  of  an  access  type  are  not  affected  if  a  'SIZE  clause 
is  given  ft  .-  the  type;  but  the  standard  customization  of  the  ACVC  allows 
only  a  ;jingie  size  for  access  types.  This  implementation  uses  a  larger 
size  for  access  types  whose  designated  object  is  of  type  STRING.  The  tests 
were  modified  by  incrementing  the  specified  size  $ACC_SIZE  with  '+  32'. 

CC2103A,  CE2103B,  and  CE3107A  were  graded  inapplicable  by  Evaluation 
Moditication  as  directed  by  the  AVO.  The  tests  abort  with  an  unh^uldled 
exception  when  USE_ERROR  is  raised  on  the  attempt  to  create  an  external 
file.  This  is  acceptable  behavior  because  this  implementation  does  not 
svfport  external  files  (cf.  AI-00332). 

C  :3413B  was  graded  inapplicable  by  Evaluation  Modification  as  directed  by 
the  AVO.  This  test  includes  the  expression  "COUNT' LAST  >  150000",  which 
raises  CONSi’RMNT  ERROR  on  the  implicit  conversion  of  the  integer  literal 
to  type  COUNT  since  COUNT' LAST  -  32,767;  there  is  no  handler  for  this 
exception,  so  test  execution  is  terminated.  The  AVO  ruled  that  this 
behavior  was  acceptable;  the  AVO  ruled  that  the  test  be  graded  inapplicable 
because  it  checks  certain  file  operations  and  this  inplementation  does  not 
support  external  files. 

Many  of  the  Class  A  and  Class  C  (executable)  test  files  were  combined  into 
single  procedures  ("bundles")  by  the  AVF,  according  to  information  supplied 
by  the  customer  and  guidance  from  the  AVO.  This  bundling  was  done  in  order 
to  reduce  the  processing  time — conpiling,  linking,  and  downloading  to  the 
target.  For  each  test  that  was  bundled,  its  context  clauses  for  packages 
Report  and  (if  present)  SYSTEM  were  commented  out,  and  the  modified  test 
was  inserted  into  the  declarative  part  of  a  block  statement  in  the  bundle. 
The  general  structure  of  each  bundle  was:  1 
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WITH  REPORT,  TEXT_IO,  SYSTEM; 

PROCEDURE  <BUNDLE_NAME>  IS 

—  repeated  for  each  test 

DECLARE 

<TEST  FILE>  (a  modified  test  is  inserted  here,  ...] 

BEGIN 

<TEST  NAME>;  [...  and  invoked  here! 

EXCEPTION  — test  is  not  expected  to  reach  this  exception  handler 

WHEN  OTHERS  ->  REPORT. FAILED( "unhandled  exception  "); 
REPORT.RESULT; 

EXTO; 

TEXT_IO.NEW_LINE; 

—  1...  repeated  for  each  test  in  the  bundle! 

TEXT_IO.PUT  LINE  ("GROUP  TEST  <BUNDLE_NAME>  COMPLETED"); 

END  <BUNDLE~ NAME>; 


The  1293  tests  that  were  processed  in  bundles  are  listed  below;  each  bundle 


is  delimited  by  '<'  and 

<A21001A 

A22002A 

A22006B 

A26004A 

A26007A 

A27003A 

A27004A 

A29002A 

A29002B 

A29002C 

A29002D 

A29002E 

A29002F 

A29002G 

A29002H 

A290021 

A29002J 

A29003A 

A2A031A> 

<A32203B 

A32203C 

A32203D 

A33003A 

A34017C 

A35101B 

A35402A 

A35502Q 

A35502R 

A35710A 

A35801A 

A35801B 

A35801F 

A35902O 

A38106D 

A38106E 

A38199A 

A39005B 

A39005C 

A39005D 

A39005E 

A39005F> 

<A39005G 

A54B01A 

A54B02A 

A55B12A 

A55B13/i 

A55B14A 

A62006D 

A71002A 

A71004A 

A72001A 

A73001I 

A73001J 

A74105B 

A74106A 

A74106B 

A74106C 

A74205E 

A74205F> 

<A83009A 

A83009B 

A83041B 

A83041O 

A83041D 

A83A02A 

A83A02B 

A83A06A 

A83A08A 

A83O01O 

A83C01D 

A83C01E 

A83C01F 

A83C01G 

Aa300lH 

A83O01I 

A83O01J 

A85007D 

A85013B 

A87B59A>1 

<AB7006A 

AC1015B 

A03106A 

A03206A 

AO3207A> 

<AD1A01A 

ADIAOIB  1 

ADIDOIE 

AD7001B 

AD7005A 

AD7101A 

AD7101O 

AD7102A 

AD7103A  1 

AD7103C> 

<AD7104A 

AD7203B 

AD7205B> 

<O2300lA 

C23003A 

C23006A  1 

,  C24002A 

024002B 

0240020 

024003A 

024003B 

C24003C 

C24106A 

1  C14113A 

024113B 

0241130 

024113D 

024113E> 

<C24201A 

C24202A 

1  C24202B, 

0242020 

O24203A 

O24203B 

O24207A 

C24211A 

C25001A 

C25001B 

025003A 

O25004A 

O26002B 

O26006A> 

<C26008A 

C27001A 

C2A001A 

02A001B 

02A0010 

02A002A 

02A006A 

C:2A008A 

C2A009A 

P2A021B> 

<O32107A 

0321070 

032108A 

O32108B 

C32111A 

C32111B> 

<C32112A 

032112B 

032113A> 

<032114A 

032115A 

C32115B> 

<C32117A 

C34001A 

0340010 

O34001D 

034001F 

O34002A 

C34002C 

C34003A 

0340030 

<034004A 

0340040 

034005A 

0340050> 

<C34005D 

C34005F 

034005G 

034005I> 

<034005J 

034005L 

034005M 

C340050> 

<C34005P 

034005R 

034005S 

034005U 

034006A 

034006F 

C34006G 

C34006J> 

<034006L 

034007A 

034007D 

034007F 

0340070 

<0340071 

C34007J 

034007M 

034007P> 

<034007R 

034007S> 

<034009A 

C34009F 

C34009G 

034009L 

034011B 

O34012A 

O34014A 

O34014O> 

a 
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<C34014E  C34014G  C34014H  C34014J  C34014L  C34014N  C34014P 

C34014R  C34014T>  <C34014U  C34014W  C34014Y  C34015B  C34016B 

C34018A  C35003A  C35003B  C35003D  C35003F  C35102A  C35106A 

C35404A  0354040  <C35503A  C35503B  C35503C  C35503D  C35503E 

C35503F  C35503G  C35503H  C35503K>  <C35503L  C35503O  C35503P 

C35504A  C35504B  C35505A  C35505B  C35505C>  <C35505D  C35505E 

C35505F  C35507A  C35507B>  <C35507C  C35507E  C35507G  C35507H 

C35507I  C35507J>  <C35507K  C35507L>  <C35706A  C35706B  C35706C 

C35706D  C35706E>  <C35707A  C35707B  C35707C  C35707D  C35707E 

C35708A  C35708B  C35708C  C35708D  C35708E>  <C3571iA  C35711B 

C35712A  C35712B  C35712C  C35713A  C35713C>  <C35801D  C35802A 

C35802B  C35802C  C35802D  C35802E>  <C35902A  C35902B  C35902D 

C35904A  C35904B  C35A02A  C35A03A  C35A03B  C3SA03C  C35A03D> 

<C35A03N  C35A03O  C35A03P>  <C35A03Q  C35A04A  C35A04B  C35A04C> 

<C35A04D  C35A04N>  <C35a04O  C35A04P>  <C35A04Q  C35A05A  C35A05D 

C35A05N>  <C35A05Q  C35A06A  C35A06B>  <C35A06D  C35A06N  C35A060> 

<C35A06P  C35A06Q  C35A06R  C35A06S  C35A07A  C35A07B  C35A07C> 

<C35A07D  C35A07N  C35A07O  C35A07P  C35A07Q  C35A08B  C36003A> 

<C36174A  C36180A  C36202A  C36202B  C36202C  C36203A  C36204A 

C36204B  C36204C>  <C36205A  C36205B  C36205C  C36205D  C36205E 

C36205F  C36205G  C36205H>  <C36205I  C36205J  C36205K  C36301A 

C36301B  C36302A  C36303A  C36304A  C36305A>  <C37002A  C37003A 

C37003B  C37005A  C37006A  C37007A  C37008A  C37008B>  <C37008C 

C37009A  C37010A  C37010B  C37012A  C37102B  C37103A  C37105A 

C37107A  C37108B  C37206A  C37207A  C37208A  C37208B  C37209A 

C37209B  C37210A>  <C37211A  C37211B  C37211C  C37211D  C37211E 

C37213A  C37213B  C37213C  C37213D>  <C37213E  C37213F  C37213G 

C37213H>  <C37213J  C37213K  C37213L  C37214A>  <C37215A  C37215B> 

<C37215C  C37215D  C37215E  C37215F  C37215G  C37215H  C37216A 

C37217A  C37217B  C37217C>  <C37304A  C37305A  C37306A  C37307A 

C37309A  C37310A  C37312A  C37402A  C37403A>  <C37404A  C37404B 

C37405A  C37409A  C37411A  C38002A  C38002B  C38004A  C38004B 

C38005A  C38005B  C38005C  C38006A  C38102A  C38102B  C38102C 

C38102D  C38102E  C38104A  C38107A  C38107B>  <C38108A  C38201A 

C38202A  C39006A  C39006B  C39006D  C39006E  C39006G  C39007A 

C39007B  C39008A  C39008B  0390080  <C41101D  C41103A  C41103B 

C41104A  C41105A  C41106A  C41107A  C41108A  C41201D  C41203A 

C41203B>  <C41204A  C41205A  C41206A  C41207A  C41301A  C41303A 

C41303B  C41303C  C41303E  C41303F  C41303G  C41303I  C41303J 

C41303K  C41303M  C41303N  C41303O  C41303Q  C41303R  C41303S 

C41303U  C41303V  C41303W  C41304A>  <C41304B  C41306A  C41306B 

C41306C  C41307A  C41307C  C41307D  C41308A  C41308C  C41308D 

C41309A>  <C41320A  C41321A.  C41322A  C41323A  C41324A  C41325A 

C41326A  C41327A  C41328A>  <C41401A  C41402A  C41403A  C41404A 

C42005A  C42006A  C42007A  C42007B>  <0420070  042007D  042007E 

042007F  042007G  O42007H  042C07I>  <O42007J  042007K  043003A 

C43004B  0430040  O43103A  O43103B  043104A>  <O43105A  O43105B 

043106A  043107A  O43108A  O43204A  0432040  O43204E  O43204F> 

<O43204G  O43204H  0432041  043205A  O43205B  0432050  O43205D 

O43205E  O43205F  O43205G  043205H  0432051  O43205J  O43205K 

O43206A  O43207A  043207B  O43207O>  <O43207D  O43208A  043208B 

O43209A  O43210A  043211A  043212A  0432120  043213A>  <04’3214A 

043214B  04S2140  043214D  043214E  043214F  043215A  043215B 

043222A>  <043224A  044003A  044003D  O44003E  044003F  O44003G 
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C45101A 

C45101K 

C45112A 

C45122D 

C45202B 

C45220E 

C45241B 

C45252A 

C45274B 

C45304A 

<C45323A 

C45345A 

C45347D 

C45421A 

C45502A 

C45504F> 

<045523;^ 

C45532B 

C45532I 

C45613A 

C45621D 

C45632A 

<C45652A 

C46012C> 

C46024A 

C46043B> 

C46053A 

C47004A 

C48004A 

C48005B 

C48008A 

q48009D 

C48010A 

C49022C 

C4A006A 

C4A012B 

C52001B 

C520C5F> 

C52011A 

C52103F 

C52103Q 

C52104F> 

C52104Q 

C53006A 

C54A07A 

C54A23A 

C54A42B 

C55B04A 

C55B10A 

C55C02B 

C57004A 

C58004D 

C58006B 

C61010A 


C45101B 

C45104A 

C45112B 

C45123A 

C45210A 

C45220F 

C45241C 

C45252B 

C45274C 

C45304C> 

C45331A 

C45345B 

C45411A 

C45421B 

C45502C 

<C45505A 

C45524A 

C45532C 

C45532J 

C45613C 

C45621E> 

C45632C 

C45662A 

<C46012D 

C46031A 

<C46044A 

C46054A 

C47005A 

C48004B 

C48005C 

C48008B 

C48009E 

C48011A 

C49023A 

C4A007A 

C4A013A 

C52001C 

<C52007A 

C52011B 

C52103G 

C52103R 

<C52104G 

C52104R 

C53006B 

C54A11A 

C54A24A 

C54A42C 

C55B05A 

C55B11A 

C55C03A 

C57004B 

C58004F 

C59001B 

C62002A 


C45101C 

C45111A 

C45113A> 

C45123B 

C45211A 

C45231A 

C45241D 

C45253A 

C45281A 

<C45321A 

C45331D 

C45345C 

C45411C 

C45421C 

C45503A 

C45521A 

C45524B 

C45532D 

C45532K 

C45614A 

<C45622A 

C45641A 

C45662B 

C46012E> 

C46032A 

C46044B 

C47002A 

C47006A 

C48004C 

C48006A 

C48008C 

C48009F 

C48012A 

C49024A 

C4A010A 

C4A013B 

C52005A 

C52008A 

C52012A 

C52103H 

C52103S 

C52104H 

C52104X, 

C53007A 

C54A13A 

C54A24B 

C54A42D 

C55B06A 

C55B11B 

C55C03B 

C57004C 

C58004G 

C59002A 

C62003A 


C45101E 
C45111B 
<C45114B 
C45123C> 
C45220A 
C45231C> 
C45241E> 
C45262A> 
C45282A 
C45321B 
C45332A 
C45345D> 
C45411D 
C45421D 
C45503C> 
C45521B 
C45524C 
C45532E 
C45532L> 
C45614C 
C45624A 
C45641B 
C4 5672a 
<C46013A 
C46033A> 
C46051A 
C47002B 
C47007A> 
C48004D 
C48006B> 
C48008D 
C48009G> 
C49020A 
C49025A 
C4A010B 
C4A014A> 
C52005B 
C52008B 
C52012B 
C52103K 
C52103X 
C52104K 
C52104y> 
C53008A 
C54A13B 
C54A26A 
C54A42E 
C55B06B 
C55B15A 
C55D01A 
C57005A> 
C58005A 
C59002B 
C62003B 


C45101G 

C45111C> 

C45122A 

<C45201A 

C45220B 

<C45232A 

<C45242A 

<C45272A 

C45282B 

C45321C 

C45342A 

<C45347A 

C45412A 

C45421E> 

<C45504A 

C45521C 

C45524D 

C45532F 

<C45534A 

C45621A 

C45624B 

C45641C 

C460.\1A 

C46014A 

<C46041A 

C46051B 

C47002C 

<C47008A 

C48004E 

<C48007A 

C48009A 

<C48009H 

C49021A 

C49026A> 

C4A010D 

<C51002A 

C52005C 

C52009A 

C52013A> 

C52103L> 

C52104A 

C52104L 

<C53004B 

C54A03A 

C54A13C> 

C54A27A 

C54A42F 

C55B07A> 

C55B16A 

C56002A 

<C58004A 

C58005B 

C59002C> 

C62004A 


C45101H 
<C45111D 
C45122B 
C45201B 
C45220C 
C45232B 
C45242B 
C45273A 
C45291A 
C45321D 
C45343A 
C45347B 
C45412C> 
<C45423A 
C45504C 
C45521D 
C45524E> 
C45532G 
C45611A 
C45621B 
C45631A 
, C45641D 
C46012A 
C46021A 
C46042A 
C46051C> 
C47002D 
C47009A 
C48004F 
C48007B 
C48009B 
C48009I 
C49022A 
<C4A005A 
C4A011A 
C51004A 
C52005D 
C52009B 
<C52103B 
<C52103M 
C52104B 
C52104M 
C53005A 
C54A04A 
<C54A13D 
C54A41A 
C54A42G 
<C55B08A 
C55C01A 
C57002A 
C58004B 
C58005H 
<C61008A 
C62006A 


C45101I 

C45111E 

C45122C 

C45202A 

C45220D 

C4524L\ 

C45251A 

C45274A 

C45303A 

C45321E> 

C45344A 

C45347C 

<C45413A 

C45431A 

C45504D 

C45521E> 

<C45532A 

C45532H 

C45611C 

C45621C 

C45631C 

C45641E> 

C46012B 

C46023A 

C46043A 

<C46052A 

C47003A 

C47009B 

C48005A 

C48007C 

C48009C 

C48009J 

C49022B 

C4A005B 

C4A012A 

C52001A 

C52005E 

C52010A 

C52103C 

C52103P 

C52104C 

C52104P 

C53005B 

C54A06A 

C54A22A 

C54A42A 

C55B03A 

C55B09A 

C55C02A 

C57003A 

C58004C 

C58006A 

C61009A 

C62009A 
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C63004A 

C64002B> 

<C64004G 

C64005A 

C64005B 

C64005C 

C64103A 

C64103B 

C64103C 

C64103D 

C64103E 

C64103F> 

<C64104A 

C64104B 

C64104C 

C64104D 

C64104E 

C64104F 

C64104G 

C64104H 

C64104I 

C64104J 

C64104K 

C64104L 

C64104M 

C^4104N 

C64104O 

C64105A 

C64105B 

C64105C 

C64105D 

C64105E 

C64105F> 

<C64106A 

C64106B 

C64106C 

C64106D 

C64107A 

C64108A 

C64109A 

C64109B 

C64109C 

C64109D 

C64109E> 

<C64109F 

C64109G 

C64109H 

C64109I 

C64109J 

C64109K 

C64109L> 

<C64201B 

C64201C 

C64202A 

C65003A> 

<C65003B 

C65004A 

C66002A 

C66002C 

C66002D 

C66002E 

C66002F 

C66002G 

C67002A 

C67002B 

C67002C 

C67002D 

C67002E> 

<C67003A 

C67003B 

C67003C 

CS7003D 

C67003E 

C67005A 

C67005B 

C67005C 

C67005D> 

<C72001B 

C72002A 

C73002A 

C73007A 

C74004A 

C74203A 

C74206A 

C74207B 

C74208A 

C74208B 

C74209A 

C74210A 

C74211A 

C74211B 

C74302A 

C74302B 

C74305A 

C74305B 

C74306A 

C74307A> 

<C74401D 

C74401E 

C74401K 

C74401Q 

C74402A 

C74402B 

C74406A 

C74407B 

C74409B> 

<C83007A 

C83012P 

C83022A 

C83023A 

C83024A 

C83025A> 

<C83027A 

C83027C 

C83028A 

C83029A 

C83030A> 

<C83031A 

C83031C 

C83031E 

C83032A 

C83033A 

C83051A 

C83B02A 

C83B02B 

C83E02A 

C83E02B 

C83S03A 

C83E04A 

C83F01A 

C83F03A 

C84002A 

C84005A 

C84008A 

C84009A 

C85004B 

C85005A 

C85005B 

C85005C 

C85005D> 

<C85C05E 

C85005F 

C85005G 

C85006A> 

<C85006F 

C85006G> 

<C87A05A 

C87A05B 

C87B02A 

C87B02B 

C87B03A 

C87B04A 

, C87B04B 

C87B04C 

C87B05A 

C87B06A 

C87B07A 

C87B07B> 

<C87B07C 

C87B07D 

C87B07E 

C87B08A 

C87B09A 

C87B09B 

C87B09C 

C87B10A 

C87B11A 

C87B11B 

C87B13A 

C87B14A 

C87B14B 

C87B14C 

C87B14D> 

<C87B15A 

C87B16A 

C87B17A 

C87B18A 

C87B18B 

C87B19A 

C87B23A 

C87B24A> 

<C87B33A 

C87B34A 

C87B34B 

C87B34C 

C87B35A 

C87B35B 

C87B35C 

C87B37A 

C87B37B 

C87B37C 

C87B37D 

C87B37E 

C87B37F 

C87B38A 

C87B39A> 

<C87B40A 

C87B41A 

C87B42A 

C87B43A 

C87B44A 

C87B45A 

C87B45C 

C87B47A 

C87B48A 

C87B48B 

C87B50A 

C87B54A 

C87B57A 

C87B62A 

C87B62B> 

<CB1001A 

CB1002A 

CB1003A 

CB1004A 

CB1005A 

CBlOlOA 

CBlOlOB 

CBIOIOC 

CB1010D> 

<CB2004A 

CB2005A 

CB2006A 

CB2007A 

CB3003A 

CB3003B> 

<CB3004A 

CB4001A 

CB4002A 

CB4003A 

CB4004A 

CB4005A 

CB4006A 

CB4007A 

CB4008A 

CB4009A 

CB4013A 

CB5002A 

CB7C33A 

CB7005A> 

<CC1004A 

CC1005C 

CC1010A> 

<CC1010B 

CC1018A 

CC1104C 

CC1107B 

CCllllA 

CC1204A 

CC1207B 

CC1220A 

CC1221A 

CC1221B 

CC1221C 

CC1221D> 

<CC1222A 

CC1224A 

CC1225A> 

<CC1304A 

CC1304B 

CC1305B 

CC1307A 

CC1307B 

CC1308A 

CC1310A> 

<CC1311A 

CC1311B 

CC2002A 

CC3004A 

CC3007A 

CC3011A 

CC3011D 

CC3012A 

CC3015A 

CC3106B> 

<CC3120A 

CC3120B 

CC3121A 

CC3123A 

CC3123B 

CC3125A 

CC3125B 

CC3125C 

CC3125D> 

<CC3126A 

CC3127A 

CC3128A 

CC3203A 

CC3207B 

CC3208A 

CC3208B> 

<CC3208C 

CC3220A 

CC3221A 

CC3222A 

CC3223A 

CC3224A 

CC3225A> 

<CC3230A 

CC3231A 

CC3232A 

CC3233A 

CC3234A 

CC3235A' 

CC3236A 

CC3240A 

CC3305A 

CC3305B 

CC3305C 

CC3305D 

CC3406A 

CC3406B 

CC3406C 

CC3406D 

CC3407A 

CC3407B 

CC3407C 

CC3407D 

CC3407E 

CC3407F> 

<CC3408A 

CC3408B 

CC3408C 

CC3408D 

CC3504A 

CC3504B 

CC3504C 

CC3504D 

CC3504E 

CC3504F> 

<CC3b04G 

CC3504H 

CC3504I 

CC3504J 

CC3504K> 

<CC3601A 

CC3601C> 

<CC3603A 

CC3606A 

CC3606B 

CC3607B> 

*  Ihis  test  listed  in  two  expleuiations 
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CHAPTER  3 

PROCESSING  INFORMATION 


3.1  TESTING  ENVIRCMIENT 

The  Ada  implementation  tested  in  this  validation  effort  is  described 
adequately  by  the  information  given  in  the  initial  pages  of  this  report. 
For  technical  and  sales  information  about  this  Ada  implementation,  contact: 

Terry  L.  Dunbar 
TLD  Systems,  Ltd. 

3625  Del  Ahk)  Blvd. 

Suite  100 

Torrance,  CA  90503 


Testing  of  this  Ada  inplementation  vas  conducted  at  the  customer's  site  by 
a  vali^tion  team  from  the  AVF. 


3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Implementation  passes  a  given  ACVC  version  if  it  processes  each  test 
of  the  customized  test  suite  in  accordance  with  the  Ada  Programming 
Language  Standard,  \diether  the  test  is  applicable  or  inapplicable; 
otherwise,  the  Ada  Inplementation  fails  the  ACVC  [Pro90]. 

For  all  processed  tests  (inapplicable  and  applicable),  a  result  was 
obtained  that  conforms  to  the  .Ada  Programming  Language  Standard. 

The  list  of  items  below  gives  the  number  of  ACVC  tests  in  various 
categories.  All  tests  were  processed,  except  those  that  were  withdrawn 
because  of  test  errors  (item  b;  see  section  2.1),  those  that  require  a 
floating-point  precision  that  exceeds  the  implementation's  maximum 
precision  (item  e;  see  section  2.2),  and  those  that  depend  on  the  support 
of  a  file  system  —  if  none  is  supported  (itemd).  All  tests  passed, 
except  those  that  are  listed  in  sections  2.1  and  2.2  (counted  in  items  b 
and  f,  below). 
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a)  Total  Number  of  Applicable  Tests 

b)  Total  Number  of  Withdrawn  Tests 

c)  Processed  Inapplicable  Tests 

d)  Non-Processed  I/O  Tests 

e)  Non-Processed  Floating-Point 

Precision  Tests 

f)  Total  Number  of  Inapplicable  Tests 

g)  Total  Number  of  Tests  for  ACVC  1.11 


3.3  TEST  EXECUTION 

A  magnetic  tape  containing  the  customized  test  suite  (see  section  1.3)  was 
talcen  on-site  by  the  validation  team  for  processing.  The  tests  were 
grouped  in  bundles  for  more  efficient  processing.  The  contents  of  the 
magnetic  tape  were  initially  loaded  on  the  S\in-4,  and  moved  to  the  HP 
9000/350  using  Ethernet. 

After  the  test  files  were  loaded  onto  the  host  conpater,  the  full  set  of 
tests  was  processed  by  the  Ada  inplementation. 

The  tests  were  conpiled  and  linked  on  the  host  computer  system,  as 
appropriate.  The  executable  images  were  treinsferred  to  the  target  computer 
system  by  the  communications  link  described  above,  and  run.  The  results 
were  captured  on  the  host  conpater  system. 

Testing  was  performed  using  comitand  scripts  provided  by  the  customer  and 
reviewed  by  the  validation  team.  See  Appendix  B  for  a  con^ilete  listing  of 
the  processing  options  for  this  iitplementation.  It  also  indicates  the 
default  options.  The  options  invoked  explicitly  for  validation  testing 
during  this  test  were: 

Options  I  Switch  Effect 


No_Phase  Suppress  displaying  of  phase  times  during 

conpilation 

All  tests  were  executed  with  the  Code  Straightening,  Global 
Optimizations,  and  automatic  Inlining  options  enabled.  Where 
optimizations  are  detected  by  the  optimizer  that  represent 
deletion  of  test  code  resulting  from  unreachable  paths, 
deleteable  assignments,  or  relational  tautologies  or 
contradictions,  such  optmizations  are  reflected  by  informational 
or  warning  diagnostics  in  the  coitpilation  listings. 


3459 

95 

67 

264 

285 

616 

( c+d+e ) 

4170 

(a+b+f ) 

Test  output,  coitpiler  and  linker  listings,  and  job  logs  were  captured  on 
magnetic  tape  and  archived  at  the  AVF.  Ihe  listings  examined  on-site  by 
the  validation  team  were  also  archived. 
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MACRO  PARAMETERS 


This  appendix  contains  the  macro  parameters  used  for  customizing  the  ACVC. 
The  meaning  and  purpose  of  these  parameters  are  explained  in  [UG89].  The 
parameter  values  are  presented  in  two  tables.  The  first  table  lists  the 
values  that  are  defined  in  terms  of  the  maximum  input-line  length,  which  is 
the  value  for  $MAX_IN_LEN — also  listed  here.  These  values  are  expressed 
here  as  Ada  string  aggregates,  vrtiere  "V"  represents  the  maximum  input-line 
length. 


Macro  Parameter 


Macro  Value 


SMAX_IN_LEN 

120  —  Value  of  V 

$B1G_ID1 

(1..V-1  ->  'A',  V  ->  '1') 

$BIG_ID2 

(1..V-1  ->  'A',  V  ->  '2') 

$b:g_id3 

(1..V/2  ->  'A')  &  '3'  & 
(1..V-1-V/2  ->  'A') 

$BIG_ID4 

(1..V/2  ->  'A')  &  '4'  & 
(1..V-1-V/2  ->  'A') 

$BIG_INT_LIT 

(1..V-3  ->  '0')  &  "298" 

$BIG_REAL_LIT 

(1..V-5  ->  '0')  &  "690.0" 

$BIG_STRING1 

&  (1..V/2  ->  'A')  & 

$B1G_STRING2 

&  (1..V-1-V/2  ->  'A')  & 

$BLANKS 

(1..V-20 

$MAX_LEN_1NT_BASED_LITERAL 

"2;"  &  (1..V-5  ->  '0')  &  "11:" 

$MAX_LEN_REAL_BASED_LITERAL 

"16:"  &  (1..V-7  ->  '0')  &  "F.E:" 


MACRO  PARAMETERS 


$MAX_STRING_LITERAL  &  (1..V-2  ->  'A')  & 

The  following  table  lists  all  of  the  other  macro  parameters  and  their 
respective  values. 

Macro  Parameter  Macro  Value 

$ACC_SIZE  16 

$ALiaJMENT  4 

$COUNT_LAST  511 

$DEFAULT_MEM_SIZE  65536 

$DEFAULT_STOR_UNIT  16 

$DEFAULT_SyS_NAME  AF1750 

$DELTA_DOC  2.0** (-31) 

$ENTRY_ADDRESS  15 

§ENTRY_ADDRESS1  17 

$ENTRY_ADDRESS2  19 

$FIELD_LAST  127 

$FILE_TERMINATOR  ASCI I . FS 

$FIXED_NAME  NO_SUCH_FIXED_TYPE 

$FLQAT_NAME  NO_SUCH_FLQAT_TYPE 

$FORM_STRING  "" 

$FORM_STRING2  "CANNOTJlESTFJCT_FILE_CAPACITY" 

$GREATER  THAN  DURATION 

90000.0 

$GREATER  THAN  DURATION  BASE  LAST 

T3107I.0 

$GREATER_THAN_FIOAT_BASE  LAST 

1.71000E+38 

$GREATER_THAN  FLOAT  SAFE  LARGE 

2.T3000E+37 
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$GREATER_THAN_SHORT_FLOAT_SAFE_LARGE 

NO_SUCH_SHORT_FLQATjrYPE 

$HIGH_PRIORITY  64 

$ILLEGAL_E}CrEBNAL_FILE_NAMEl 

BADCHAR@.! 

$ILLEGAL_EXTERNAL_FILE_NAME2 

THISFII^NAMEWOULDBEPERFECILYLEGALIFITVffiRENOTSOLaX; .  SOTHERE 

$INAPPR0PRIATE  LINE  LENGTH 

-1 

$inappropriate  page  length 

-1 

$INCLUDE_PRAaiAl  PRAGMA  INCLUDE  ( "A28006D1.TST" ) 

$INCL»roE_PRAGMA2  PRAGMA  INCLUDE  { '’B28006D1.TST") 

$INTEGER_FIRST  -32768 

$INTEGER_LAST  32767 

$INTEGER_LAST_PLUS_1  32768 

$INTERFACE_LANGUAGE  ASSEMBLY 

$LESS__THAN_DUBATIC»^  -90000.0 

$LESS  THAN  DURATIOI  BASE  FIRST 
“  -111073.0 

$LINE_TERMINATOR  ASCI I . CR 

$LCW_PRIORITy  1 

$MACHINE_CODE_STATEMENT 

R_FMT'  ( OPCODE->LR ,  WW>R0 ,  RX->R2 )  ; 

$MACHINE_CODE_TYPE  ACCUMULATOR 

$MANTISSA_DOC  "  31 

$MAX_DIGITS  9 

$MAX_INT  2147483647 

$MAX_INT_PLUS_1  2147483648 

$MIN_INT  -2147483648 

$NAME  NO_SUCH_INTEGER_TYPE 
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$NAME_LIST 


$NAME_SPECI FICATIONl 

$name_specific:atic»^2 

$NAME_SPECIFICATiai3 

$NEG_BASED_INT 

$NEW_MEM_SIZE 

$NEW_ST0R_UNIT 

$NEW_SYS_NAME 

$PAGE_TERMINATOR 

$RECORD_DEFINITiai 


$RECORD_NAME 

$TASK_S1ZE 

$TASK_STORAGE_SIZE 

$TICK 

$VARIABLE_ADDRESS 

$VAR1ABLE_ADDRESS1 

$VARIABLE_ADDRESS2 

$YOOR_PRAGMA 


none ,  nsl6000 ,  veuc,  af 1750 ,  z8002 , 
28001 ,gould,pdpli ,m68000 , 
pe3200 , caps , andahl , 18086 , 
i80286, i80386, 280000, ns32000, 
ibmsl ,  m68020 ,  nebula ,  naine_x ,  hp 

NOT_SUPPORTED 

NOT_SUPPORTED 

NOT_SUPPORTED 

16#FFFFFFFE# 

65535 

16 

afl750a 

ASCII. CR  &  ASCII. FF 

RECORD  OPCODE:  R_OPCODE_VALUE ; 
RA:  REGISTER; 

RX:  REGISTER:-R0; 

END  RECORD; 

R_FKT 

16 

2000 

1.0/10000.0 

16#800J# 

16#8020# 

16#8040# 

NO  SUCH  PRP^SMA 
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O^IPIIATICN  SYSTEM  OPTIC»IS 


The  conpiler  options  of  this  Ada  inplcmentation,  as  described  in  this 
Appendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  conpiler  documentation  and 
not  to  this  report.  i 


LINKER  OPTIOIS 

i 

The  linker  options  of  this  Ada  inplementation,  as  described  in  this 
^pendix,  are  provided  by  the  customer.  Unless  *  specifically  noted 
otherwise,  references  in  this  appendix  are  to  linker  documentation  and  not 
to  this  report. 


TLD  ADA  COMPILER 

Compiler  Usage 
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Example’  With  the  logical  name  definition 

$  DEFINE  ADA_DEFAULTS  ",/LIST/HrtC/NOCHECKS" 
the  Ada  compiler  invocation  command 
$  ADATLD/DEBUG  TEST 
is  expanded  to 

$  ADATLD/LIST/MAC/NOCHECKS/DEBUG  TEST 
by  the  compiler. 


3.4  Compiler  Option  Switches 

Compiler  option  switches  provide  control  over  various  processing  and 
output  feature'  of  the  compiler.  These  features  Include  several 
varieties  of  listing  output,  the  level  and  kinds  of  optimizations 
desired,  the  choice  of  target  computer,  and  the  operation  of  the 
compiler  in  a  syntax  checking  mode  only. 

Keywords  are  used  for  selecting  various  compiler  options.  The 

complement  keyword,  if  it  exists,  is  used  to  disable  a  compiler  option 
and  is  formed  by  prefixing  the  switch  keyword  with  "NO" . 

Switches  may  be  abbreviated  to  the  number  of  characters  required  to 
uniquely  identify  the  switch.  For  example,  the  switch  "CROSSREF" 
(explained  in  the  list  below)  may  be  uniquely  identified  by  the 

abbreviation  "CR"  or  any  longer  abb:. aviation.  In  the  list  of  switches, 
on  the  following  pages,  the  abbreviations  are  in  bold,  the  optional 
I  extra  characters  are  not  bolded. 

j  If  an  option  is  not  specified  by  the  user,  a  default  setting  is 
I  assumed.  All  specified  compiler  options  apply  to  a  single  invocation 
\ef  the  compiler. 

1 

pie  default  setting  of  a  switch  end  its  meaning  are  defined  in  the 

table  below.  The  meaning  of  the  complement  form  of  a  switch  is 

i^ormally  the  negation  of  the  switch.  For  some  switches,  the  complement 
mieaning  is  not  obvious;  these  complement  switch  keywords  are  listed 
separately. 

In  the  description  of  tht  switches ,  the  target  dependent  name  target  is 
used.  The  value  of  this  symbol  is  determined  by  the  value  of  the 
TARGET  switch. 
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Coopiltr  gtncratad  file  fpecificatlons  generally  confora  to  host 
conventions.  Thus,  any  generated  filenaae  is  the  source  filenaae 
appended  with  the  default  file  type.  The  output  file  name  can  be 
completely  or  partially  specified. 
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SWITCH  NAME  MEANING 


16BA0DR 

32BADDR  -•  default 

The  32BADDR  option  causes  address  computations  to  be  performed 
\xaing  1750A  double  precision  fixed  point  data  words.  If  16BADDR  is 
selected,  address  computations  will  be  performed  using  single 
precision  fixed  point  data  words  ignoring  the  possibility  of  a 
I7S0A  Fixed  Point  Overflow  Interrupt  due  to  computation  of  an 
address  greater  than  7FFF  hex.  Applicable  to  17S0A  target  only. 

Asm  (-eauIacion*fiie>spee) 

NOAsh  ••  default 

The  ASH  switch  selects  an  assembler  output  file  which  contains  VAX 
macro  references  for  assembling  and  emulation  of  the  target  on  thr 
VAX  (17S0A  target  only) . 

If  no  emulatlon-flle>spec  is  specified,  the  file  name  is  font  1 
from  the  file  name  of  the  lnpuc*file>spec  witl*  the  file  Cy;'e 
*.MAR".  If  only  the  emulacion<flle  name  is  specified,  a  file  ty^je 
of  *.KAR”  is  added  to  form  the  full  file  name.  If  only  the  fils 
type  is  specified,  the  file  name  of  the  input ‘file*  spec  is  used 
with  the  specified  file  type  to  form  the  full  file  name. 

The  ASM  switch  overrides  an  earlier  ASSEMBLY  or  MACRO  switch. 

call  tree 

NOCAlL_TREE  --  default 

This  switch  is  used  in  conjunction  with  /ELABORATE  and  /LIST  to 
causa  all  .CTI  files  (corresponding  to  the  complete  set  of  object 
files  being  linked  tor  this  program)  to  be  read  in  and  a  closure  of 
all  calls  in  the  program  to  be  computed.  The  results  of  this 
analysis  is  formatted  into  a  subprogram  call  tree  report. 

0 

Note:  The  call  tree  will  be  incomplete  if  any  required  compilation 
unit's  .CTI  files  are  missing. 
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checks  -•  default 

checks (-(check  ldentlfler( ,...)) ) 

NOCHECKS{-(che‘ck_ldenCifier{ 

Vhen  the  CHECKS  avitch  is  used,  one  or  sore  check^^ldentlflers  are 
specified  and  the  specified  nm  time  checks  are  enabled.  The 
status  of  run  time  checks  associated  with  tinmentioned 
eheck^identifiers  is  unchanged. 

Without  any  cheek_identifiers,  the  NOCHECKS  switch  omits  all  run 
time  checks.  If  one  or  more  eheck^identifiers  are  specified,  the 
specified  run  time  checks  are  omitted.  The  status  of  run  time 
checks  associated  with  unnentloned  check_identlfiers  is  unchanged. 

Checks  can  be  eliminated  selectively  or  completely  by  source 
statement  pragma  Suppress.  Pragma  Suppress  overrides  the  checks 
switch. 

Check^identifiers  are  listed  below  and  are  described  in  the  LRM, 
Section  11.7. 


ACCESS  CHECK 
ELABORATION  CHECK 
OVERFLOW^CHECK 

CONPIG-vaiue 

NOCONFIG-vaiue 


DISCRIMINANT  CHECK 
INDEX  CHECK  “ 

range“check 


DIVISION  CHECK 
LENGTH  CHECK 
STORAGE  CHECK 


The  CONFIG  switch  provides  a  conditional  compilation 
(configuration)  capability  by  determining  whether  or  not  source 
text,  introduced  or  bracketed  by  special  comment  constructs,  is 
compiled.  For  a  single  line: 


--/value  source- text 

where  source- text  is 
specified. 

For  multiple  lines:  ' 
--/value  Ilne-I 
--/value  Iine-2 


compiled  only  if  conflg  -  value  is 


--/value  iJLne-n 
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where  the  construct 
--/value  line~l 
liae~2 


~~ /value  line-n 

is  equivalent. 

NOTE:  The  braces  ({  and  ])  must  appear  In  the  source  code;  in 

this  instance,  they  are  not  me ta- characters.  All  of  the  text 
between  --  /  (value  and  —  /  }  value  is  compiled  or  skipped, 
depending  upon  whether  or  not  the  config-value  is  present. 

CRossref 

NOCRoSSREF  --  default 

This  switch  generates  a  cross  reference  listing  that  contains  names 
referenced  in  the  source  code.  The  cross  reference  listing  is 
included  in  the  listing  file;  therefore,  the  LIST  switch  must  be 
selected  or  CROSSREF  has  no  effect. 

CSeG  --  default 

NOCSeg 

This  switch  indicates  that  constants  are  to  be  allocated  in  a 
control  section  of  their  own  (1750A  target  only). 

CTl  (-CTI-fiie-spec) 

NOCTi  --  default 

This  switch  generates  a  CASE  tools  interface  file.  The  default 
filename  is  derived  from  the  object  filename,  with  a  .CTI 
extension.  This  switch  is  required  to  support  the  Stack  Analysis 
and/or  Call  Tree  switches. 
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debug  ••  default 

NODEbug 

This  switch  selects  the  production  of  symbolic  debug  tables  in  the 
relocatable  object  file. 

Alternate  abbreviation:  DBG,  NODBG 

DELaSSIGN  ••  default 
NODELassign 

This  switch  optimizes  code  by  deleting  redundant  assignments. 

NOTE:  Use  of  this  switch  can  cause  erroneous  source  programs  to 
execute  with  unexpected  results  if  references  to  access  objects 
are  made  without  regard  to  the  interference  semantics  of  Ada. 

diagnostics  -•  default 

NOOIagnostics 

The  DIAGNOSTICS  switch  produces  a  file  compatible  with  Digital's 
Language  Sensitive  Editor  and  the  linoTech  Composer.  See  Digital's 
documentation  for  the  Language  Sensitive  Editor  for  a  detailed 
explanation  of  this  switch. 

ELaborator 

This  switch  selects  generation  of  a  setup  program  that  elaborates 
all  compilation  units  on  which  the  named  subprogram  depends  and 
Chen  calls  the  named  program.  This  program  will  be  the  main 
program  at  link  time. 

exception  info 
N0EXCEPTlbN_INrO  --  default 

This  switch  generates  a  string  in  Che  relocatable  object  code  chat 
is  Che  full  pathname  of  the  file  being  compiled.  It  generates 
extra  instructions  ^o  identify  the  location  at  which  an  unhandled 
exception  occurred.  The  NOEXCEPTION_INFO  switch  suppresses  the 
generation  of  the  string  and  extra  instructions.  The  source 
statement  pragma  Suppress  (ALL^CHECKS)  or  pragma  Suppress 
(EXCEPTION_INFORMATION)  suppresses  only  the  extra  instructions. 
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FuU._CALL_TREE  --  default 

When  the  FULL_CALL_TREE  switch  is  used,  the  conpiler  listing  ? 
includes  representations  of  every  call.  ? 

INDENT-n 

INDEnt-3  --  default 

This  switch  produces  a  formatted  (indented)  source  listing.  This 
switch  assigns  a  value  to  the  number  of  columns  used  in 
indentation;  the  value  n  can  range  from  0  to  15. 

indirect 

NOINDIrECT  --  default 

If  this  switch  is  used,  all  subprograms  declared  in  the  compilation 
are  called  with  indirect  calls.  This  switch  only  applies  to  the 
1750A  target. 

INFo  ••  default 
NOINFo 

This  switch  produces  all  diagnostic  messages.  It  suppresses  the 
production  of  information- level  diagnostic  messages. 

inline  ••  default 

NOINLine 


This  default  switch  automatically  inlines  any  procedure  chat  is  ? 
called  only  once.  It  may  be  disabled  by  adding  Che  noinline  option  ? 
Co  Che  command  line.  Inlining  is  only  implemenCed  for  calls  chac  7 
are  made  vichin  Che  same  compilacion  unic  as  Che  body  of  Che  ? 
procedure  co  be  expanded.  ? 


INTsl 

NOINTsL  --  defaulc 


This  swicch  incersperses  lines  of  source  code  wich  the  assembly  7 
code  generated  in  Che  macro  listing.  This  swicch  is  valid  only  if  7 
Che  LIST,  SOURCE,  and  MACRO  switches  are  selected,  and  one  of  Che  7 
MACRO,  ASM,  or  ASSSEMBLY  switches  is  selected.  The  MACRO  swicch  7 
overrides  an  earlier  ASSEMBLY  or  ASM  swicch.  7 


LIBRARY-Ada-program- library- file  -  spec 
LIBRARY-car^ec.LIB  --  defaulc 

This  swicch  identifies  Che  file  Co  be  used  for  Ada  Program 
Library.  The  defaulc  value  of  target:  in  Che  Ada  Program  Library 
file  spec  is  derived  from  the  TARGET  swicch. 
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LISt ( -listing* file • spec ] 

NOLISt  ••  default  in  interactive  node 
list  -  default  for  background  processes 

The  LIST  switch  generates  a  listing  file.  The  default  file  type  is 
.LIS.  The  listing-file-spec  can  be  optionally  specified. 

log 

NOLOg  --  default 

This  switch  requests  the  coopiler  to  write  a  compiler  log, 
including  command  line  options  and  the  file  spec  of  the  Ada  source 
file  being  compiled,  to  SYS$OUTPUT. 

macro 

NOMACrO  --  default 

The  MACRO  switch  produces  an  assembly  like  object  code  listing 
appended  to  the  source  listing  file.  The  LIST  switch  must  be 
enabled  or  this  switch  has  no  effect. 

main  ELAB 

NOMAIn^ELAB  ..  default 

The  MAIM^ELAB  switch  is  used  to  inform  the  compiler  chat  the 
compilation  unit  being  compiled  is  to  be  treated  as  a  user -defined 
elaboration,  or  setup,  program. 

Note:  The  XTRA  switch  is  required  when  NAIN^ELAB  is  to  be  used. 

MAKeLIB  { -parent  -  AFL-  spec ) 

NOMAKeUB  ••  default 

The  MAKELIB  switch  creates  a  new  Ada  Program  Library  (AFL)  file. 
MAKELIB  should  be  used  with  caution  because  it  creates  a  new  AFL 
file  in  Che  default  directory  even  if  another  AFL  file  of  the  same 
name  existed. 

The  new  AFL  file  is  created  in  the  default  directory  with  the  name 
target. LIB  unless  the  LIBRARY  switch  is  used. 

If  MAKELIB  is  used  without  a  parent,  a  new  library  is  created  with 
Che  default  RTS  specification.  This  specification  is  derived  from 
the  name  TLD_LIB_cargec .  See  Che  target  dependent  compiler 
sections  for  further  explanations  of  this  name. 
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MAXERJRORS-n 

MAXeRRORS-500  default 


This  switch  assigns  a  value  limit  to  the  number  of  errors  forcing 
Job  termination.  Once  this  value  is  exceeded,  the  compilation  is 
terminated.  Information* level  diagnostic  messages  are  not  included 
in  the  count  of  errors  forcing  termination.  The  specified  value's 
range  is  from  0  to  500. 


MOOEl^modei 

KOdei^standard 
MOdel-vamp 
MOdel-ibh  gvsc 
MOdel-hwell  gvsc 
MOdei^hwell“gvsc_fpp 

MOdei^rvell_eca 

-RI1750AB 
MOdE1^MA31750 
model-pace  1750AE 
MOdEL-MS  1750B  II 
-MS“1750B‘iII 
M0dEL-MDC281 


••  1750a  target 
••  default 

--  IBM_GVSC  target 
--  Honeywell_GVSC  target 
--  Honeywell_GVSC  target  (with 
floating  point  processor) 

••  Rockwell  Embedded  Compiler  architecture 
--  Rockwell  International  1750A/B  architecture 
••  Marconi  31750  architecture 
--  PACE  1750AE  architecture 
--  MIL-STD-1750B.  Type  II 
--  MIL-STD-1750B,  Type  III 
•*  Marconi  MDC281 


By  default,  the  compiler  produces  code  for  the  generic  or  standard 
target.  The  model  switch  allows  the  user  to  specify  a  nonstandard 
model  for  the  target. 


For  the  1750A  target,  MDC281  switch  selects  the  MDC281  (MAS  281) 
implementation  of  MIL*STD-1750A. 

0BjECT{-ob  Jecc~file~spec) 

OBJECT  --  default 

NOOBject 


I 

I 

I 

I 

I 


The  OBJECT  switch  produces  a  relocatable  object  file.  The  default 
file  type  is  ".OBJ". 

OPt  --  default 
NOOPt 

The  OPT  switch  enables  global  optimization  of  the  compiled  code. 
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PAGe-h 

PAGe-60  --  default 

The  PACE  switch  assigns  a  value  to  the  number  of  lines  per  page  for 
listing.  The  value  can  range  from  10  to  99. 

PARm 

NOPARm  ••  default 

The  PASH  switch  causes  all  option  switches  governing  Che 
compilation,  including  the  defaulted  option  switches,  Co  be 
included  in  Che  listing  file.  The  LIST  option  must  also  be 
selected  or  PARM  will  have  no  effect.  User  specified  switches  are 
preceded  in  the  listing  file  by  a  leading  asterisk  (*) . 

PHaSE  --  default 
NOPHase 

The  N0_PHASE  switch  suppresses  the  display  of  phase  na.mes  during 
compilation. 

REF^lD_CASE-opclon 

The  Ref_Id_Case  switch  is  used  to  determine  how  variable  names 
appear  in  the  compiler  listing.  Tbs  options  for  this  switch  are: 

All^Lower  ••  All  variable  names  are  is  lower  case. 

All^Underllned  ••  All  variable  names  are  ui,.^rlined. 

All^Upper  All  variable  names  are  in  upper  case. 

As^ls  ••  All  variable  names  appear  as  is. 

Inicial_Caps  ••  All  variable  names  have  initial  caps. 

Inserc^Underscore  ••  All  variable  names  have  underscores  inserted. 

REF_KEY_CASE-opclon 

The  Ref_Key_Case  switch  is  used  to  determine  how  Ada  key  words 
appear  in  the  compiler  listing.  The  options  for  this  switch  are: 

All^Lower  All  Ada  key  words  are  in  lower  case. 

All^Underlined  ••  All  Ada  key  words  are  underlined. 

All_Upper  •>  All  Ada  key  words  are  in  upper  case. 

As_Is  ••  All  Ada  key  words  appear  as  is. 

ZniCial_Caps  ••  All  Ada  key  words  have  initial  caps. 

Insert^Underscore  ••  All  Ada  key  words  have  underscores  inserted. 
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ReFORMAK -refornat- f ile  -spec ) 

NOReFORMAT  --  default 

This  switch  causes  TLDada  to  reformat  the  source  listing  in  the 
listing  file  and,  if  a  reformat-file-spec  is  present,  to  generate  a 
reformatted  source  file.  The  default  type  of  the  new  source  file 
is  -.Rni". 

SOURCE  --  default 

NOSOurce 

This  switch  causes  the  input  source  program  to  be  included  in  the 
listing  file.  Unless  they  are  suppressed,  diagnostic  messages  are 
always  included  in  the  listing  file. 

stack  analysis 
NOSTAaC_ANALYSlS  --  default 

This  switch  is  used  with  the  ELABORATOR  switch  to  cause  all  CTI 
files  (corresponding  to  the  complete  set  of  object  files  being 
linked  for  this  program)  to  be  read  in.  The  subprogram  call  tree 
is  analyzed  to  compute  stack  requireaents  for  the  main  program  and 
each  dependent  task. 

MOTE:  The  tree  will  be  incomplete  if  any  required  compilation 
unit's  CTI  files  are  missing. 


syntax  only 

N0SYnx^_ONLY  --  default 

“  I 

This  switch  performs  syntax  and  semantic  checking  on  the  source 
program.  No  object  file  is  produced  and  the  MACRO  switch  is 
ignored.  The  Ada  Program  Library  is  not  updated. 

TaRCET-1750A  --  default 
TaRGET-VAX  --  default 

This  switch  selects  the  target  computer  for  which  code  is  to  be 
•  generated  for  this  compilation.  "1750A"  selects  the  MIL-STO-1750A 
Instruction  Set  Architecture,  Notice  A.  ■VAX"  selects  the  VAX 
architecture  operation  under  VMS. 


f  TtJ?  aP^STSMS  LTO 


TLD  ADA  COMPILER 

Compiler  Usage 


1750A-ADA-2 

3-18 


warnings  ••  default 

NOWArnings 

The  VAP’‘7INGS  switch  outputs  warning  and  higher -level  diagnostic 
messages . 

The  NOVARNINGS  switch  suppresses  the  output  of  both  warning- level 
and  Information- level  diagnostic  messages. 

WiDTH-n 

WIdTH-110  --  default 

This  switch  sets  the  number  of  characters  per  line  (80  to  132)  in 
the  listing  file. 

write  ELaS 

NOWRiTE_ELAB  --  default 

The  VRITE_EL\£  switch  is  used  to  obtain  an  Ada  source  file  which 
represents  the  main  elaboration  "secup”  program  created  by  the 
compiler.  The  MAIN__ELAB  switch  may  not  be  fased  at  the  same  time  as 
the  ELAB  switch. 

Xtra 

NOXtRA  ••  default 

This  switch  is  used  to  access  features  under  development.  See  the 
description  of  this  switch  in  Section  3.9. 
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4.  DIRECTIVE  LANGUAGE 


TLDlnk  is  called  by  a  command  which  may  specify  options  in  a  form  which 
is  host  dependent.  See  Chapter  5  for  a  description  of  the  command  line 
on  a  specific  host  computer.  On  each  host,  one  of  the  options  is  to 
specify  a  linker  directive  file  which  is  host  independent.  This 
section  describes  the  directives  which  may  appear  in  a  linker  directive 
file  to  control  a  link  operation. 


4.1  Directive  File 

Each  line  of  the  Directive  File  contains  up  to  132  characters.  Tabs 
are  created  as  blanks.  Blanks  are  necessary  to  separate  words  when  no 
ocher  punctuation  would  otherwise  separate  them,  but  the  niusber  of 
blanks  used  is  insignificant.  Any  characters  after  two  successive 
minuses  (••)  are  ignored.  A  directive  ordinarily  consists  of  one  line 
of  input,  but  an  opening  parenthesis,  "("  or  •<",  which  is  unmatched  on 
one  line  causes  all  following  lines  to  be  included  in  the  same 
directive  until  the  closing  parenthesis,  *)"  or  ">",  is  found, 
permitting  long  parenthesized  lists.  Words  may  not  be  divided  between 
lines.  Only  one  directive  is  allowed  per  input  line.  Either  upper  or 
lower  case  may  be  used;  upper  and  lower  case  are  equivalent.  In  Che 
following  list  of  directives  and  components  (e.g.,  directive 
attributes),  the  acceptable  abbreviation  for  a  directive  is  in  bold  and 
may  be  used  instead  of  the  entire  directive  or  component  name.  For 
example,  the  CSECT  directive  attribute  WrITEPROTECT  may  be  entered  as 
"W." 


4.2  Directives 


TLDlnk  directives  are  Individually  described  in  this  section  and  appear 
in  alphabetical  order.  For  discussions  of  related  directives,  refer  to 
Sections  3.2  -3.8,  in  Chapter  3. 

In  Che  following  descriptions ,  upper  case  Roman  font  is  used  for 
keywords  and  lower  case  italics  indicates  information  provided  by  Che 
user,  e.g.,  ADDRESS  STATES  decimal. 


Characters  inside  curley  {  )  braces  are  optional,  the  user  nay  enter  or 
omit  them.  Rectangular  braces  with  a  vertical  bar  inside  represent  a 
choice;  [JTIF]  indicates  that  the  user  may  enter  X  or  Y,  but  not  both. 
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The  -  symbol  is  used  for  a  convenient  line  break.  It  is  not  part  of 
the  syntax . 

In  these  descriptions,  directive  switches  are  shown  with  as  the 
lead-in  character.  For  VAX  or  HV  hosted  systems,  the  user  should 
replace  •*"  with  "/*.  For  UNIX  hosted  systems,  should  be  replaced 
with  For  example,  the  •♦TRANSIT"  switch  (in  the  NODE  description) 

is  entered  as  -/TRANSIT"  for  VAX  systems,  or  " -TRANSIT"  for  UNIX 
systems . 

The  following  words ,  in  lower  ease  italics ,  are  used  in  the 
descriptions : 

file 

This  is  a  host  file  specification.  A  file  specification  must  be 
completely  contained  on  a  line. 

node 

This  is  the  name  of  a  node  in  Che  program  being  linked. 
module 

This  is  Che  name  of  a  module  in  the  program  being  linked. 
symbol 

This  is  Che  name  of  an  axtemal  symbol  in  the  program  being 
linked. 

Isddress 

This  is  a  logical  address,  in  the  form  {a.}n[I|0].  In  the 
address,  a  is  a  hexadecimal  digit  giving  the  address  state 
(default  0)  ,  n  is  a  hexadecimal  number  from  0  to  FFFF  giving  the 
address  within  the  address  state,  and  I  or  0  (upper  or  lower 
ease)  specifies  instruction  or  operand. 

psddrers 

This  is  a  physical  address  in  Che  form  of  a  hexadecimal  number 
from  0  to  FFFFF. 

eddress 

This  is  a  logical  or  physical  address. 
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Ipage 


This  is  a  logical  page  number  in  Che  form  (a.]n(I|0].  In  Che 
address,  a  is  che  address  scace  (defaulc  0),  n  is  a  hexadecimal 
number  from  0  Co  F  giving  Che  page  nui^er  vicliin  Che  address 
scace,  and  I  or  0  indicaces  inscruccion  or  operand. 

ppage 


This  Is  a  physical  page  number  in  che  form  of  a  hexadecimal 
number  from  0  co  FF. 

decimal 

This  is  a  decimal  number. 

Each  TLDlnk  direcCive  is  described  below. 


ADDRESS  STATES  decimal 

This  direccive  declares  che  number  of  page  regiscers  which 
che  program  being  linked  is  expecced  co  use.  If  che  number 
is  0,  TLDlnk  assumes  chac  chere  are  no  page  regiscers,  and 
memory  mapping  is  noc  supporced. 

If  chis  direccive  is  absenc,  TLDlnk  assumes  chac  che  program 
being  linked  uses  16  Address  Scaces. 

ASSIGN  Ipage , ppage { .number -pages) 

The  ASSIGN  direccive  causes  TLDlnk  Co  assign  che  specified 
logical  page(s)  co  che  specified  physical  pagaCs).  The 
assignmenc  begins  ac  Ipage  and  ppage  and  concinues  vich 
consecucive  logical  and  physical  pages  uncil  lnumber>pages 
have  been  assigned.  If  number-pages  is  omicced,!  Che  defaulc 
is  1  page.  The  ASSIGN  direccive  is  required  for  all  physical 
pages  specified  in  ROM  dlreccives  if  ADDRESSj  STATES  is 
greacer  chan  zero.  I 

CINCLUDE  filei (module! (csecc, ...)){ -symbol, -symbol , . . . ) 

CINCLUDE,  che  condicional  INCLUDE  direccive,  il  no  longer  | 
supporced.  Use  Che  INCLUDE  direccive  inscead.  1  j 
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COLLECT  NODE  -  nodc^nu*  ( ,  (ATTR-«CCrihuc«|NAME-csecC_iMae]  ]  | 

Tha  COLLECT  NODE  dlractlva  collaccs  control  tactions  by 
•ttributa  or  naaa  end  aoves  than  to  tha  aplaeifiad  noda.  Tha 
control  tactions  collactad  are  those  baewaen  tha  last  NODE 
directive  and  tha  COLLECT  directive  which  have  the  specified 
attribute  or  control  taction  naaa. 

COMMENT  -"Text  to  be  put  in  Load  Module’ 

Tha  COMMENT  directive  contains  text  which  TLDlnk  puts  in  the 
load  aodula.  TLDlnk  pracadat  tha  text  within  quotas  by  */;;* 
to  distinguish  txser  inserted  comsents  from  those  inserted  by 
TLDlnk  (which  begin  with  All  cooaents  specified  by 

COMMENT  directives  are  inserted  in  the  load  nodule 
inaadistaly  following  tha  initial  cociaant  which  it  created  by 
TLDlnk. 

CONTINUATION 

Tha  CONTINUATION  directive  indicates  that  the  character 
following  the  directive  is  a  continuation  line  nark  for  the 
current  directive  file  and  all  nested  directive  files.  A 
continuation  lino  nark  is  tised  when  nore  information  is 
needed  to  complete  the  current  line. 

The  default  continuation  urks  are  operating  systen*speeific; 
the  continuation  line  nark  for  computer  systems  running  on 
UNIX  is  •\".  for  VAX/VMS  it  is  and  the  nark  for  AOS/VS 
systens  is  *&.*  Continuation  lino  nark  characters  are  set 
for  a  directive  file  when  the  CONTINUATION  directive  is 
followed  by  the  appropriate  continuation  character. 

A  continuation  line  nark  nust  be  preceded  by  a  space.  The 
nark  cannot  cross  file  boundaries.  Continuation  line  narks 
only  affect  lines  within  the  same  directive  file. 

1 

For  example,  a  continuation  line  in  UNIX  night  look  like: 

1  store  888  -  1,2,3.4,5,6,7,8.9.10,11.12,13,14,  \ 

1  13.16.17 

and  IS  equivalent  to: 

iitore  888  -  1,2.3,4.5.6,7,8,9.10.11,12.13.14 
score  896  -  15,16.17 

A  continuation  line  nark  nay  also  be  used  Co  place  a  comment, 
for  example: 
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gtore  888  »  1, 2, 3, A, 5, 6, 7, 8, 9, 10, \**  conunent  here 

11,12,13 

NOTE:  If  Che  conclnuacion  charecter  is  to  be  used  in 

ocher  concexcs  (e.g.,  using  ic  on  Che  VAX  Co  exclude 
symbols  on  an  INCLUDE  direccive),  Chen  Che  CONTINUATION 
direccive  muse  be  used  Co  change  Che  defaulc  conCinuacion 
characcer . 

CSECT  iDoduIe,csecc( , [address|ALICN-n] ) {ATTR-accrIbuca-Iisc) 

The  CSECT  direccive  specifies  Che  address  or  alignmenc  and/or 
Che  accribuces  of  a  concrol  seccion.  The  module  and  csecc 
name  are  required  Co  idencify  Che  concrol  seccion  uniquely. 
EiCher  address  or  alignmenc,  buc  noc  boch,  may  be  specified. 
If  address  is  specified,  ic  is  given  as  a  single  hexadecimal 
number.  TLDlnk  incerprecs  Che  address  as  physical  if  ADDRESS 
STATES  is  0;  ochervise,  TLDlnk  incerprecs  Che  address  as  an 
inscruecion  address  or  operand  address  according  Co  Che 
concrol  seccion  accribuce.  The  accribuces  are  idencified 
below.  In  chis  lisc,  che  characcers  in  bold  muse  be  encered, 
Che  remaining  plain  cext  characcers  are  opcional.  Icalics 
indicaces  informacion  provided  by  che  user. 

WritEPROTECT  Allocace  Chis  concrol  seccion  Co  a  page 
covered  by  a  page  regiscer  vich  che 
vrice  procecc  bic  on. 

NOTWrITEFROTECT  Allocace  Chis  concrol  seccion  Co  a  page 
covered  by  a  page  regiscer  vich  che 
vrice  procecc  bic  off. 

BlOCKFROTECT  Allocace  Chis  concrol  secClon  Co  a 

1024«word  block  procecced  from 

processor  access  by  a  biC  in 

memory 'procecc  RAH. 

NOTBlOGCFROTECT  Allocace  Chis  concrol  seccion  Co  a 
1024 -vord  block  vich  processor  access 
alloved  by  a  bic  in  memory-procecc 
RAM. 

DmaFROTECT  Allocace  Chis  concrol  section  Co  a 

1024 -vord  block  procecced  from  DMA 
access  by  a  bic  in  memory-procecc  RAM. 
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NOTDmaprotect 


Startroh 


RAMOR  ROM 


ROM  ONLY 


RAMONly 


Allocate  this  control  section  to  a 
1024>«ord  block  with  DMA  access 
allowed  by  a  bit  in  nemory-protect 
RAH. 

Allocate  this  control  section  to  a  page 
designated  as  startup  ROM  by  a  ROM 
linker  directive. 

Allocate  this  control  section  to  a  page 
designated  as  RAH_0R_R0M  by  a  ROM 
linker  directive,  or  if  there  is  no 
such  linker  directive  or  not  enough 
rooa  in  the  ROM,  allocate  this  control 
section  to  RAM. 

Allocate  this  control  section  to  a  page 
designated  as  ROM_ONLY  by  a  ROM  lixiker 
directive . 

Allocate  this  control  section  to  a  page 
not  designated  as  ROM  by  a  linker 
directive . 


DEBUG 


DEBUG  causes  the  linker  to  create  a  file  containing  synbols 
and  their  values  for  use  by  the  synbolic  debugger.  The 
linker  puts  all  external  sytsbols  in  the  syobol  file  and  ai^ 
local  synbols  which  were  included  in  the  Relocatable  Object 
File  by  the  conpiler  or  assembler.  If  no  file -spec  is 
specified,  the  name  of  the  symbol  file  is  derived  as 
described  in  the  MAP  switch.  If  DEBUG  is  not  specified,  the 
linker  does  not  produce  the  symbol  file. 

DEBUG  eaxises  a  TLD  Symbol  File  (.sym)  to  be  generated  when 
LDHTYFE  -  LDM  or  LLM  is  specified.  DEBUG  causes  the  HF 
Linker  Syiid>ol  Files  (.L)  and  an  Assembler  Synd)ol  File  (.A)  to 
be  generated  whenever  LDMTYFE-HF  is  specified. 


This  directive  is  always  required.  In  a  file  specified  in  a 
USE  directive  it  terminates  directive  input  from  that  file. 
In  the  primary  directive  file,  it  terminates  directive  input 
to  TLDlnk,  so  that  any  subsequent  input  is  ignored.  After 
this  directive  is  read,  TLDlnk  allocates  memory  and  reads  the 
object  files  to  produce  the  load  module. 
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ENTRY  MODULE  ( -  )57mboI . . . . 

The  optirn  to  have  TLDlnk  produce  an  entry  module  file  is 
specified  in  the  command  line.  See  Chapter  5  for  a 
description  of  the  command  line  options. 

If  the  option  to  produce  an  entry  module  file  is  specified  in 
the  T^rrP.V  MODULE  directive  nay  be  tised 

in  the  directive  file  to  restrict  the  entry  points  which 
defined  in  the  entry  module  file.  If  the  ENTRY  MODULE 
directive  does  not  appear,  all  external  symbols  defined  in 
the  link  are  defined  in  the  entry  nodule  file.  If  the  ENTRY 
MODULE  directive  is  used,  it  must  precede  any  NODE 
directive. 

The  symbols  listed  inside  angle  brackets  in  this  directive 
are  all  preceded  by  a  minus  sign,  or  are  all  not  preceded  by 
a  minus  sign.  If  the  symbols  are  not  preceded  by  a  minus 
sign,  then  only  the  symbols  given  are  defined  in  the  object 
module.  If  the  symbols  are  preceded  by  a  minus  sign,  then 
all  the  entry  points  in  the  node  except  the  symbols  given  are 
defined  in  the  object  module. 

EXCLUDE  file  {  (module, ...)  ) 

EXCLUDE,  a  directive  which  includes  a  file  while  excluding 
selected  nodules,  is  no  longer  supported.  Use  the  INCLUDE 
directive  instead. 
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INCLUDEl*COND)  Ifile{  {modale_symbol^llsc)  \  |  fila{  (module^lisc)  )- 
(<57BboI_Ii50)  ] 

aodule_sjrmbol_lisc 

module  {  (esecc_^Ii*e) )  {<symbol^list>]  { ,module{  (esact_lisc)  )- 
[<sjnBbol_list>]) 

module_llsc 

module  [ ( (esecc_Il5C) ) { ,aoduie( (csecC^lXsc) ) ) . . .  •> 

I  modulei , -module)] 

eseec_lisc  : esect[ ,eseet. . .)  1  -esecti ,-esecc. . .) 

sjabol^lisc  symbol {  ^symbol. . .)  |  -symbol) ,-symbol. . .) 

BNF  notacion  is  used  above  to  express  the  eoDplicated  syntax 
of  the  INCLUDE  directive. 

This  directive  causes  the  specified  file  to  be  included  in 
the  load  nodule.  If  any  nodule  nanes  are  listed  in 
parentheses ,  all  the  nanes  nust  be  prefixed  with  ninus  signs 
or  none  of  then  nay  have  ninus  signs.  If  the  nodule  nanes 
are  preceded  by  a  ninus  sign,  then  those  object  nodules  are 
excluded  fron  the  load  nodule.  If  the  nodule  nanes  are  not 

preceded  by  a  ninus  sign,  then  only  the  naned  nodules  are 

included  in  the  load  nodule.  In  either  case,  the  order  of 
the  nodule  nanes  is  not  significant.  If  no  nodules  are 
listed  in  parentheses,  then  the  entire  file  is  included. 

If  nodule  nanes  are  listed  without  ninus  signs,  each  nodule 
nane  nay  be  followed  by  individual  control  section  nanes  in 
parentheses  following  the  nodule  nane .  If  any  control 

sections  are  listed,  all  the  control  sections  nust  be 

prefixed  by  ninus  signs  or  none  of  then  nay  have  ninus 
signs.  If  control  section  nanes  are  preceded  by  ninus  signs, 
those  control  sections  are  excluded  fron  the  link.  If 
control  section'  nanes  are  not  preceded  by  ninus  signs,  only 
the  naned  control  sections  are  included  in  the  link.  If  no 
list  of  control  section  nanes  follows  a  nodule  nane,  the 
entire  nodule  is  Included  in  the  link. 

If  nodule  nanes  are  not  listed,  or  if  nodule  nanes  are  listed 
without  ninus  signs,  individual  external  s3mbol  definitions 
nay  be  included  or  excluded  fron  individual  nodules  or  fron 
the  entire  file  by  listing  the  syi^ol  nanes,  optionally 
prefixed  with  ninus  signs,  and  enclosed  in  angle  brackets  (< 
>) .  If  a  synbol  list  follows  a  nodule  nane  (and  its  optional 
list  of  control  section  nanes),  the  specified  symbols  are 
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included  or  excluded  from  Che  nodule.  If  e  symbol  list 
follows  Che  file  name  (and  Che  opcional  lisc  of  module 
names),  che  specified  symbols  are  included  or  excluded  from 
Che  encire  file.  Symbols  may  be  excluded  or  included  in  a 
direccive  line,  buc  noc  boch.  If  Che  *COND  qualifier  is  | 

used,  Chen  che  specified  modules  are  Included  in  Che  load  j 

module  only  if  chey  have  noC  already  been  included. 

INDIRECT  (^ADDRESS  -  address )( ^ROMADDRESS  *  address  )  symbol,...  | 

The  INDIRECT  direccive  specifies  symbols  ChaC  are  accessed 
indireccly,  chrough  a  branch  veccor.  In  chis  vecCor,  symbols 
are  ordered  che  same  way  chac  chey  are  in  Che  symbol  lisC. 

The  ADDRESS  qxialifier  provides  che  scarring  address  of  Che 
cransfer  veccor.  This  must  be  a  physical  address.  The 
ROMADDRESS  qualifier  specifies  Che  scarring  address  of  a  copy 
of  che  cransfer  veccor  in  ROM. 

A  symbol  may  only  appear  once  in  an  INDIRECT  symbol  Use. 

However,  mulciple  definicions  of  chese  are  permicced  in  che 
objecc  code  co  permic  replacemenc  of  procedures.  Vhen 
mulciple  definicions  are  used,  che  cransfer  vecerr  conCains  a 
branch  co  che  lasc  procedure  encouncered,  and  no  diagnoscic 
is  issued. 

For  more  informacion,  see  che  discussion  of  "Reprogramming” 
in  Seccion  3.2.8  of  chis  manual. 

LDMTYPE-fonaaCl  ,fonast, . . ) 

LOMTYPE-LDM  ••  defaulc 

LOMTYPE-LLM 

LDMTYPE-HP 

LDHTYFE  specifies  Che  formac  of  che  load  module  and  symbol 
file(s)  TLDlnk  is  Co  produce.  Three  fonaacs  are  currencly 
available.  If  more  Chan  one  formac  is  specified,  che  members 
of  che  lisc  are  separaced  by  commas.  See  DEBUG  for  relaced 
informacion. 

o  LDM  (file  excenslcn  .LDK),  Che  defaulc,  specifies  che  TLD 
Load  Module  Formac. 

o  LLM  (file  excension  .LLH)  specifies  a  formac  chac  is 
similar  co  che  TLD  Load  Module  Formac,  but  vich  logical 
addresses  Inscead  of  physical  addresses.  See  Seccion 
3.10. 

o  HP  (file  excension  .X)  specifies  che  Hewle'cc* Packard 
HP64000  Absoluce  File  formac. 
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LET  {*MEMORK_TYPE  -  ’memory  type  iMac”)  symbol  -  vslue  | 

The  LET  directive  causes  the  linker  to  set  the  specified 
symbol  to  the  specified  value.  The  effect  is  as  if  the 
symbol  had  been  defined  as  an  QCPORT  in  an  cbject  module. 

Any  external  reference  to  the  specified  symbol  from  an  object 
module  will  be  set  to  the  value  specified  in  the  LET 
directive.  Optionally,  a  symbol  type  can  be  declared  as  a 
specific  memory  type  if  KEMORY^TYPE  is  sec  ••  'memory  type 
name . * 

MAXADR  Mddress 

This  directive  gives  Che  maximum  physical  address  the  program 
is  expected  to  use.  If  the  directive  is  not  used,  it  is 
assumed  Chat  all  0..FFFF  (hexadecimal)  locations  are 
available,  except  those  reserved  by  the  RESERVE  directive. 

If  Che  linked  program  extends  beyond  the  specified  address, 
it  is  linked  with  a  warning. 

MEMORY  BLOCK  PROTECT 

This  directive  announces  that  the  block  protect  RAM  is 
available  on  the  target  processor,  permitting  hardware  memory 
protection  in  increments  of  1024  words.  If  this  directive  is 
present,  values  for  loading  in  memory 'protect  RAH  are 
included  in  the  load  module.  If  this  directive  is  absent, 

TLDlnk  assumes  that  there  is  no  block  protect  RAM. 

NODE{*{NO)TRANSIT(-rransic_Waae)  {*STARTROM)  | 
(*AODRESS-address  |  *ALIGN-address )  model, node)  | 

The  NODE  directive  declares  chat  all  control  sections 
included  up  to  the  next  NODE  or  END  directive  are  contained 
in  the  same  node.  All  control  sections  in  a  node  are  visible 
at  the  same  time. 

The  TRANSIT  switch  is  used  to  specify  transit  routine 
options.  The  default  is  TRANSIT.  If  NOTRANSIT  is  used,  the 
insertion  of  transit  routines  is  suppressed  for  calls 
originating  from  another  node  to  entry  points  within  this 
node.  If  Transit^Name  is  used,  the  named  transit  routine  is 
inserted  for  all  calls  originating  from  another  node  to  entry 
points  within  this  node. 

The  STARTROH  switch  indicates  that  the  contents  of  this  node 
are  to  be  placed  in  startup  ROM.  This  switch  ituerts  a  /V 
STARTROM  record  before  the  contents  of  this  lode  iii  the  load 
module . 
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The  ADDRESS  or  ALIGN  switch,  but  not  both,  may  be  used  to 
specify  the  start  address  or  the  alignment  of  the  first 
module  in  the  node.  If  ADDRESS  STATES  is  greater  than  0, 
Chen  the  address  may  be  an  instruction  address,  or  an  operand 
address,  or  both. 

The  first  node  name  is  Che  name  of  this  node.  Ic  can 
duplicate  the  name  of  any  symbol,  file,  or  module,  or  it  can 
be  a  new  name.  The  second  node  name  is  the  name  of  the 
parent  of  this  node.  Vhen  there  is  no  parent  (i.e.,  for  a 
root  node)  Che  second  node  name  is  omitted.  The  same  name 
must  not  be  \ised  as  the  node  name  in  two  NODE  directives. 
The  parent  node  must  precede  its  descendant  nodes.  NODE 
directives  must  be  ordered  such  that  no  node  is  separated 
from  its  parent  node  by  only  its  sibling  nodes  and  their 
descendant  nodes. 

NO  LOAD  address,  address 

The  NOLOAD  directive  causes  code  or  data  within  the  specified 
range  to  be  omitted  from  the  load  module.  This  directive  may 
occur  repeatedly  to  specify  multiple  ranges.  If  ADDRESS 
STATES  is  0,  Che  addresses  must  be  physical.  If  ADDRESS 
STATES  is  greater  Chan  0,  Che  addresses  may  be  logical  or 
phys ical . 

NOTE:  NOLOAD  may  be  used  to  suppress  generation  of  code  or 
data  Chat  is  already  in  ROM  but  is  referenced  by  new  and  or 
replacement  code. 

RESERVE  address, address 

This  directive  announces  that  no  relocatable  control  sections 
are  to  be  loaded  into  the  specified  range  of  addresses . 
Absolute  control  sections  are  loaded  without  regard  to 
reserved  areas.  Addresses  beyond  the  HAXADR  address  are 
treated  as  reserved.  This  directive  nay  occur  repeatedly  for 
multiple  reserved  ranges. 

If  ADDRESS  STATES  is  0,  Chen  Che  addresses  must  be  physical 
addresses.  If  ADDRESS  STATES  is  greater  Chan  0,  Chen  Che 
addresses  may  be  logical  addresses  or  physical  addresses,  but 
all  RESERVES  with  physical  addresses  cnist  precede  Che  first 
NODE  directive. 
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ROM  { swi cch^list )  paddress , pMddress 

This  dlrecrive  restricts  the  given  range  of  physical 
addresses  to  control  sections  designated  as  read-only 
memory.  All  other  memory  is  treated  as  readable  and 
vriteable.  This  directive  may  occur  repeatedly  for  separate 
ROH  ranges.  If  ADDRESS  STATES  is  greater  than  0,  the  ASSIGN 
directive  must  specify  the  logical  pages  which  are  to  be 
assigned  to  all  ROH  physical  pages. 

The  following  list  identifies  switches  chat  are  tised  to 
specify  attributes  of  control  sections  which  are  allocated  to 
ROH.  The  attributes  of  O/I  and  RAH/ROH  are  checked  for  all 
relocatable  control  sections.  The  O/I  attribute  can  have  two 
values:  Operand  or  Instruction.  The  RAH/ROH  attribute  can 
have  three  values:  RAH_0NLY,  R0H_0NLY,  or  RAM_0R_R0H. 


*s 

Restricts 

this  ROH 

range 

to 

control 

sections 

with 

attribute 

STARTROH. 

*IR 

Restricts 

this  ROH 

range 

to 

control 

sections 

with 

attributes 

Instruction  and  ROH^ONLY. 

*IRR 

Restricts 

this  ROH 

range 

to 

control 

section.'! 

vaoi 

attributes 

Instruction  and  RAH_0R_R0M. 

♦OR 

Restricts 

this  ROH 

range 

to 

control 

sections 

with 

attributes  Operand  and  ROH_ONLY. 

♦ORR 

Restricts 

this  ROH 

range 

to 

control 

sections 

with 

attributes  Operand  and  RAH_0R_,R0H. 

Switches  can  be  combined  and  the  combined  attributes  will  be 
selected.  In  addition,  the  following  are  switches  that 
specify  combinations  of  attributes: 
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STORE  [sTobol  |  sddress]  -  [sTzoboI  |  value  |  SUM]  { , . . . )  | 

The  STORE  directive  Indicates  that  TLDInk  is  to  cause  one  or 
Dore  values  to  be  stored  in  memory  when  Che  program  being 
linked  is  loaded.  The  starting  location  at  which  values  are 
to  be  scored  is  specified  either  as  an  address  or  an  external 
symbol.  If  ADDRESS  STATES  is  0,  Chen  Che  address  must  be  a 
physical  address.  If  ADDRESS  STATES  is  greater  Chan  0,  then 
Che  address  may  be  a  logical  address  or  a  physical  address. 

Each  value  Co  be  scored  is  specified  as  a  hexadecimal  number, 
or  as  an  external  symbol,  or  as  the  SUM  function  described 
below.  TLDInk  causes  Che  first  value  to  be  stored  in  the 
specified  address  when  the  program  is  loaded  into  memory.  If 
more  than  one  value  is  given,  the  succeeding  values  are 
stored  in  consecutive  addresses  following  Che  specified 
address.  Vichout  a  warning,  the  values  scored  in  memory  by 
Che  STORE  directive  overwrite  any  other  values  stored  at  the 
same  locations . 

SUM  (scartadr,  endadr,  result,  skipedr) 

The  purpose  of  Che  SUM  function  is  to  return  a  ehecksiun 
value.  The  SUM  function  returns  a  value  equal  to  result 
minus  the  sum  of  all  words  from  scartadr  to  endadr  with  the 
exception  of  the  word  at  skipedr.  Any  overflows  are  Ignored 
in  taking  the  sun.  The  SUM  function  is  intended  to  be  used 
with  the  STORE  directive  Co  compute  a  value  to  be  scored  at 
skipedr.  This  is  computed  the  following  way: 

SUM:  -  result  •  sum  (endadr  -  scartadr)  •  (skipedr) 

If  ADDRESS  STATES  is  0,  then  all  Che  addresses  used  in  Che 
SUM  function  must  be  physical  addresses.  If  ADDRESS  STATES 
is  greater  chan  0,  the  addresses  may  be  logical  or  physical 
addresses . 

USE  file 


This  directive  causes  TLDInk  to  read  directives  from  Che 
specified  file  t^ncil  it  encounters  an  END  directive.  Upon 
encountering  the  END  directive  in  the  specified  file,  TLDInk 
returns  to  the  directive  following  the  USE  directive. 
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*1  Has  Che  same  effect  as  *IR*IRR.  Restricts  this  ROM  | 

range  to  control  sections  with  attributes  Instruction  j 
and  ROM_ONLY  or  RAM_OR_ROM. 

*0  Has  Che  same  effect  as  *OR*ORR.  Restricts  this  ROM  | 

range  to  control  sections  with  attributes  Operand  and  | 
ROM^ONLY  or  RAM_OR_ROM. 

*R  Has  Che  saae  effect  as  *IR*OR.  Restricts  this  ROM  | 

range  to  control  sections  vich  attribute  ROM__ONLY  | 
regardless  of  the  O/I  attribute  value. 

*RR  Has  Che  saae  effect  as  *IRR*ORR.  Restricts  this  ROM  | 

range  to  control  sections  with  attribute  RAM_OR_ROM  j 

regardless  of  the  O/I  attribute  value. 

If  no  switches  are  specified,  control  sections  with 
attributes  ROM_OKLY  or  RAM_or_,ROM  are  allocated  to  ROM. 

SEARCH  (*REPEAT)(*NODE-Wode_,Wame)  file  | 

This  directive  causes  TLOlnk  to  search  the  specified  file  for 
Bodules  which  define  currently  :  undefined  external 
references.  Any  such  modules  are  included  just  as  if  they 
had  been  specified  in  an  INCLUDE  directive.  Undefined  weak 
external  references  do  not  cause  inclusion  on  a  search,  but 
if  an  external  is  both  weakly  and  strongly  referenced,  its 
defining  module  is  loaded  by  SEARCH.  New  external  references 
from  nodules  included  from  the  search  file  can  cause 
additional  nodules  to  be  included  f roa  the  search  file. , 
regardless  of  the  order  of  nodules  in  the  search  file.  For 
exanple,  if  the  program  references  only  S,  and  S  references 
T,  and  the  library  contains  T  followed  by  S,  then  both  S  and 
T  are  included  from  the  library. 

The  REPEAT  switch  has  two  effects.  First,  it  causes  TLDlnk 
to  search  the  file  when  the  END  directive  is  encountered 
instead  of  when  the  SEARCH  directive  is  encountered.  Second, 
the  set  of  files  which  appear  in  SEARCH*REPEAT  directives  is  I 

searched  repeatedly  to  try  to  define  new  undefined  external 
references  froa  any  nodule  included  from  any  file  in  the 
set.  The  REPEAT  switch  allows  the  use  of  multiple  libraries 
which  have  interlibrary  references. 

The  NODE  switch  causes  TLDlnk  to  insert  any  nodules  included 
as  a  result  of  the  search  in  the  specified  node.  If  the  NODE 
switch  is  not  used,  the  nodules  are  inserted  in  the  node  in 
which  the  SEARCH  occurs,  or  if  the  REPEAT  switch  is  used,  in 
the  last  node  of  the  link. 
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The  only  allowed  inplementation  dependencies  correspond  to 
inplementation-depcndent  pragmas,  to  certain  machine-dependent  conventions 
as  mentioned  in  Chapter  13  of  the  Ada  Standard,  emd  to  certain  allowed 
restrictions  on  representation  clauses.  The  inplementation-dependent 
characteristics  of  this  Ada  implementation,  as  described  in  this  Appendix, 
are  provided  by  the  customer.  Unless  specifically  noted  otherwise, 
references  in  this  Appendix  are  to  compiler  docxamentation  and  not  to  this 
report.  Inplementation-specific  portions  of  the  package  STANDARD,  which 
are  not  a  part  of  J^pendix  F,  are: 


package  STANDARD  is 

type  INTEGE31  is  range  -32768  ..  32767; 

type  FLOAT  is  digits  6  range  -1.0*2.0**127  ..  0.999999*2.0**127; 

type  DURATION  is  delta  2.0** (-14)  range  -86400.0  ..  86400.0; 

type  La4G_INTEGER  is  range  -2147483648  ..  2147483647; 

type  LCX4G  FLOAT  is  digits  9 

range  -1.0*2.0**127  ..  0.999999999*2.0**127; 


end  STANDARD; 
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In  the  customer's  Appendix  F  documentation  that  constitutes  this  appendix, 
some  information  appears  to  be  inaccurate  or  incomplete;  the  AVF  offered 
the  customer  an  opportunity  to  redress  these  points,  but  the  customer 
declined  to  do  so. 

The  customer  declined  to  provide  che  AVF  with  an  updated  list  of  all 
compiler/linker  options  and  the  options  used  specifically  for  this 
validation. 

On  page  C-7,  the  customer  states  that  the  sxi)type  priority  is  integer 
reuige  1  ..  16#3EFF#.  However  the  correct  range  is  1  ..  64. 

On  page  C-8,  the  customer  states  that  address  clauses  for  task  entries 
(interrupts)  are  not  supported.  However,  test  B91001H  contains  such 
an  address  clause,  and  this  test  was  passed.  Also,  in  a  petition 
against  this  test  for  a  Data  General  implementation,  wliich  does  not 
support  such  address  clauses,  the  customer  asserts  that  all  of  the 
1750a  implementations  do  support  them. 

On  page  C-10,  the  customer  states  that  the  range  of  priority  is  0  to 
16366.  The  correct  range  is  1  to  64. 

On  page  C~ll,  the  customer  states  that  access  objects  are  implemented 
as  16-bit  integers.  However,  for  tests  CD7A81A  et  al.  (See  section 
2.3),  the  AVF  was  requested  to  increase  by  32  bits  the  size  used  for 
access  objects  vdiose  designated  objects  are  strings. 

On  page  C-12,  the  customer  states  that  the  pragma  priority  is 
supported  with  values  of  1  to  16366.  The  correct  range  is  1  to  64. 


C-2 


APPENDIX  F  OF  THE  Ada  STANDARD 


The  Ada  language  definition  allows  for  certain  rrachine  dependencies  in  a 
controlled  manner.  No  machine-dependent  syntax  of  semantic  extensions  or 
restrictions  are  allowed.  The  only  allowed  implementation-dependencies 
correspond  to  inplementation-dependent  pragmas  eind  attributes,  certain 
machine-dependent  conventions  as  mentioned  in  chapter  13  of  the 
MIL-STD-1815A;  and  certain  allowed  restrictions  on  representation  clauses. 

The  full  definition  of  the  implementation-dependent  characteristics  of  the 
-XD  HP  9000/MIL-STD-1750A^  Ada  Compiler  System  is  presented  in  this 
^pendix  F. 

Implementation-Dependent  Pragmas 

The  TLD  ACS  support.",  the  following  inplementation  dependent  pragmas. 


Pragma  Collect  (type_name,  attribute); 

This  pragma  tells  the  compiler  to  collect  all  objects  of  specified 
type_name  and  siobtypes  of  type_name  into  unmapped  control  sections.  An 
"unmapped  control  section"  is  allocated  a  physical  memory  location  not 
covered  by  a  page  register.  Unmapped  control  sections  are  accessed  from  a 
device  by  DMA  or  by  IBM  GVSC  extended  instructions. 


Pragma  Control_Section  (USECT,  UNMAPPED,  object_name  {,  object_name. . . }  ); 

This  pragma  specifies  data  objects  that  will  be  put  into  unmapped  control 
sections.  The  first  two  parameters  must  be  USECT  and  UNMAPPED  and  the 
remaining  parameters  are  the  names  of  Ada  objects.  An  "unmapped  control 
section"  is  allocated  a  physical  memory  location  not  covered  by  a  page 
register.  Unmapped  control  sections  are  accessed  from  a  device  by  DMA  cr 
by  IBM  GVSC  extended  instructions. 


Pragma  Contiguous  ( type_name ) ; 

Pragma  Cjntiguous  (object_naine) ; 

This  pragma  is  used  as  a  query  to  determi»ie  whether  the  compiler  has 
allocated  the  specified  type  of  object  in  a  contiguous  bloc)?  of  memory 
words.  The  compiler  will  generate  a  warning  message  if  the  allocation  is 
noncontiguous  or  is  undetermined.  The  allocation  probably  will  be 
noncontiguous  vhen  data  structures  have  dynamically  sized  components.  The 
allocation  prolaably  will  be  undetermined  vhen  unresolved  private  types  are 
forward  type  declarations.  This  pragma  provides  information  to  the 
programmer  about  the  allocation  scheme  used  by  the  conpiler. 


APPENDIX  F  OF  THE  Ada  STANDARD 


Pragina  Export  ( Ixinguage_naine ,  Ada_entity_name,  {String}); 

This  pragma  is  a  complement  to  Pragma  Interface  and  instructs  the  compiler 
to  ma)<e  the  entity  named  available  for  reference  by  a  foreign  language 
module.  The  language  name  identifies  the  language  in  which  the  foreign 
module  is  coded.  The  only  foreign  leuiguage  presently  supported  is 
Assembly.  Ada  and  JOVIAL  are  permitted  and  presently  mean  the  same  as 
Assembly  but  the  semantics  of  their  use  are  subject  to  redefinition  by 
future  releases  of  t.he  compiler.  If  the  optional  third  parameter  is 
present,  the  string  provides  the  name  by  vrfiich  the  entity  may  be  referenced 
by  t.he  foreign  module.  The  contents  of  this  string  must  conform  to  the 
conventions  for  the  indicated  foreign  language  amd  the  linker  being  used. 
No  check  is  made  by  the  con^jiler  to  insure  that  these  conventions  are 
obeyed. 

Only  objects  having  static  allocation  and  subprograms  are  supported  by 
pragma  Export.  If  the  Ada  entity  named  is  a  subprogram,  this  pragma  must 
be  placed  within  the  declarative  region  of  the  named  subprogram.  If  the 
name  is  that  of  an  object,  the  pragma  roust  be  placed  within  the  same 
declarative  region  and  following  the  object  declaration.  It  is  the 
responsibility  of  the  programmer  to  nsure  that  the  subprogram  and  object 
are  elaborated  before  the  reference  is  made. 


pragma  If  (Conpile  Time  Depression); 
pragma  Elsif  (ConpTle_TTme_Expression) ; 
pragma  Else;  ~  ~ 

pragma  Endif; 

These  Source  directives  may  be  used  to  enclose  conditionally  compiled 
source  to  enhance  program  portability  and  configuration  adaptation.  These 
directives  may  occur  at  the  place  that  language  defined  pragmas, 
statements,  or  declarations  may  occur.  Source  code  following  these  pragmas 
will  be  con^jiled  or  ignored  similar  to  the  semamtics  of  the  corresponding 
Ada  statements  depending  upon  whether  the  Compile_Time_Expression  is  true 
or  false,  respectively.  The  primary  difference  between  these  pragmas  and 
the  corresponding  Ada  Statements  are  that  the  pragmas  may  enclose 
declarations  and  other  pragmas. 


Pragma  Inter rupt_^Kind  (Entry_Name,  Entry_Type  {,  Duration  )  ); 

This  pragma  must  appear  in  the  task  specification  and  must  appear  after  the 
Entry_Naroe  is  declared.  Allowed  Entry_Type  are  Ordinary,  Timed,  and 
CondiHonal.  The  optional  parameter  Duration  is  applicable  only  to  timed 
entries  and  is  the  time  to  wait  for  an  accept. 

For  an  Ordinary  entry,  if  the  accept  is  not  ready,  the  task  is  queried. 
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For  a  Timed  entry,  if  the  accept  is  not  ready,  the  program  waits  for  the 
period  of  time  specified  by  the  Duration.  If  the  accept  does  not  become 
ready  in  that  period,  the  interrupt  is  ignored. 

For  a  Conditional  entry,  if  the  accept  is  not  ready,  the  interrupt  is 
ignored. 


Pragma  Load  ( literal_string) ; 

This  pragma  makes  the  compiler  include  a  foreign  object  (identified  by  the 
literal_string)  into  the  link  command. 


Pragma  Monitor; 

Pragma  Monitor  can  eliminate  tasking  context  overhead.  The  pragma 
identifies  Ada  tasks  that  obey  certain  restrictions  (listed  below), 
allowing  efficient  invocation  by  the  conpiler.  With  Pragma  Monitor,  a 
simple  procedure  call  is  used  to  invoke  task  entry. 

The  pragma  only  applies  to  tasks  that  have  the  following  restrictions: 

o  Monitor  tasks  must  only  be  declared  in  library  level  non-generic 
packages 

o  Monitor  tasks  may  contain  data  declarations  only  within  the  accept 
statement . 

o  A  monitor  task  consists  of  an  infinite  loop  containing  one  select 
statement. 

o  The  "\^en  condition"  is  not  allowed  in  the  select  alternative  of  the 
select  statement. 

o  The  only  selective  wait  alternative  allowed  in  the  select  statement  is 
the  accept  alternative. 

o  All  executaJDle  statements  of  a  monitor  task  must  occur  within  an 
accept  statement. 

o  Only  one  accept  statenient  is  allowed  for  each  entry  declared  in  the 
task  specification. 


If  a  task  body  violates  restrictions  placed  on  monitor  tasks,  it  is 
identified  as  erroneous  and  the  conpilation  fails. 


Pragma  No_Default_Initialization; 

Pragma  No_Default^Initialization  (typename,  {,  typename  ...)  ); 
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The  LRM  requires  initialization  of  certain  data  structures  even  though  no 
explicit  initialization  is  coded.  For  exanple,  the  LRM  requires 
access_type  objects  to  have  an  initial  value  of  "NULL."  The 
No_Default_lnitialization  pragma  would  prevent  this  default  initialization. 

In  addition,  initialization  declared  in  a  type  statement  is  suppressed  by 
this  pragma. 

The  TLD  inplementation  of  packed  records  or  records  with  representation 
clauses  includes  default  initialization  of  filler  bits,  i.e.,  bits  within 
the  allocated  size  of  a  variant  that  are  not  associated  with  a  record 
conponent  for  the  variant.  No_Default_Initialization  prevents  this  default 
initialization. 

No_Default  Initialization  must  be  placed  in  the  declaration  region  of  the 
package.  Before  any  declaration  that  require  elaboration  code.  Ttie  pragma 
remains  in  effect  until  the  end  of  the  compilation  unit. 


Pragma  No_Elaboration; 

Pragma  No_Elaboration  is  used  to  prevent  the  generation  of  elaboration  code 
for  the  containing  scope.  The  pragma  must  be  placed  in  the  declaration 
region  of  the  affected  scope  before  any  declaration  that  would  otherwise 
produce  elaboration  code. 

Pragma  No  Elaboration  prevents  otherwise  unnecessary  initialization  of 
packages  that  are  initialized  by  other  non-Ada  operations.  Examples  are 
ROM  data  and  Read  Time  Kernel  initialization.  It  is  used  to  maintain  the 
TLD  Run  Time  Library  (TLDrtl)  and  is  not  intended  for  general  use. 


Pragma  TCB_Extension  (value); 

This  Pragma  is  used  to  extend  the  size  of  the  Task  Control  Block  on  the 
stack.  It  ceuT  be  used  only  within  a  task  specification.  The  parameter 
passed  to  this  program  must  be  static  and  represents  the  size  to  be 
extended  in  bytes. 


Pragma  Within_Page  ( type_name ) ; 

Pragma  Within_Page  (object_name) ; 

This  pragma  instructs  the  conpiler  to  allocate  the  specified  object,  or 
each  object  of  the  specified  type,  as  a  contiguous  block  of  memory  words 
that  does  not  span  any  page  boundaries  (a  page  is  4096  words). 

The  compiler  will  generate  a  warning  message  if  the  allocation  is 
noncontiguous  or  not  yet  determined.  Additionally,  the  conpiler  will 
generate  a  warning  message  if  the  pragma  is  in  a  nonstatic  declarative 
region.  If  an  object  exceeds  4096  words,  it  will  be  allocated  with  an 
address  at  the  beginning  of  a  page,  but  it  will  spam  one  or  more  succeeding 
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page  boiandaries  and  a  warning  message  will  be  produced. 


Implementation-Dependent  Attributes 
Task_Id 

The  Task_Id  attributes  is  used  only  with  task  objects.  This  TLD-defined 
attributes  returns  the  actual  system  address  of  the  task  object. 


Specification  of  Package  SYSTEM 
Package  SYSTEM 

The  following  declarations  are  defined  in  package  system: 


type  operating_system  is  (  unix,  netos,  vms,  os_x,  msdos,  bare  ); 

type  name  is  (none,  nsl6000,  vax,  afl750,  z8002,  z8001,  gould, 
pdpll,  m68000,  pe3200,  caps,  amdahl,  i8086,  i80286,  i80386, 
z80000,  ns32000,  ibmsl,  m68020,  nebula,  name_x,  hp); 


system_name:  constant  name  :■  name'target; 

os_name:  constant  ope rating_sys tern  :*  ope rating_sy stem 'system; 

subtype  priority  is  integer  range  1..16#3EFF#;  —  1  is  default  priority, 

subtype  interrupt_priority  is  integer  rauige  16#3FF0#. .16#3FFF#; 

pragma  put  line  ('>',  '>',  '>',  '  ',  system_name, 

'  '»  ,  '  ’•  os_name,  ' 

type  address  is  range  0  ..  65535; 
for  address' size  use  16; 

type  unsigned  is  range  0  ..  65535; 
for  unsigned' size  use  16; 

type  long_address  is  range  0. .16#007FFFFF#;  —  23  bit  physical  address 

—  for  GVSC 


—  Language  Defined  Constants 


storage_unit: 

constant 

memory  size: 

consteuit 

min_int : 

constant 

inax_int: 

constant 

m2uc_digits: 

constant 

max_mantissa: 

consteint 

finejdelta: 

constant 

tick: 

constant 

rtc_tps ; 

constant 

min_delay: 

constant 

16; 

65536; 

-2**31; 

2**31-1; 

9; 

31; 

2.0**(-31); 

1.0/10  000.0;  —  Clock  ticks  ■  100  msecs. 

10_000; 

rtc_tps  *  tick;  —  Miniimjm  value  of  ADA  delay 


C-7 


APPEM)IX  F  OF  THE  Ada  STANDARD 


address_0:  constant  address  0;  —  Zero  address 

Restrictions  on  Representation  Clauses 

Enumeration  representation  clauses  are  supported  for  value  ranges  of 
Integer 'First  to  Integer 'Last. 

Record  representation  clauses  are  supported  to  arrange  record  conponents 
within  a  record.  Record  components  may  not  be  specified  to  cross  a  word 
boundary  unless  they  are  arranged  to  encon^)ass  two  or  more  whole  words.  A 
record  conponent  of  type  record  that  has  itself  been  "rep  specificationed" 
may  only  be  allocated  at  bit  0.  Bits  are  ntnnbered  from  left  to  right  with 
bit  0  indicating  the  sign  bit. 

•Ihe  alignment  clause  is  not  supported. 

Address  clauses  are  supported  for  variable  objects  and  designate  the 
virtual  address  of  the  object.  The  TLD  Ada  Conpiler  System  treats  the 
address  specification  as  a  means  to  access  objects  allocated  by  other  than 
Ada  means  and  accordingly  does  not  treat  the  clause  as  a  request  to 
allocate  the  object  at  the  indicated  address. 

Address  clauses  are  not  supported  for  constant  objects,  packages,  tasks,  or 
task  entries. 


Implementation-Dependent  Names 

The  TLD  Ada  Coitpiler  System  defines  no  inplementation  dependent  names  for 
conpiler  generated  conponents. 


Interpretations  of  Expressions  in  Address  Clauses 

Address  expression  values  and  type  Address  represent  a  location  in  logical 
memory  (in  the  program's  current  address  state).  For  objects,  the  address 
specifies  a  location  within  the  64K  word  logical  operand  space.  The 
'Address  attribute  applied  to  a  subprogram  represents  a  16  bit  word  address 
within  the  logical  instruction  space. 


Restrictions  on  Unchecked  Conversion 

Conversion  of  dynamically  sized  objects  are  not  allowed. 


I/O  Package  Characteristics 
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Ttie  following  implementation-defined  types  are  declared  in  Text_Io. 
siabtype  Count  is  integer  range  0  ..  511; 
subtype  Field  is  Integer  range  0  ..  127; 


Package  Standard 

The  iiqjlementation-defined  types  of  package  Standard  are; 

type  Integer  is  range  -32  768  ..  32  767; 

type  Long_Integer  is  range  -2_T47_483  643^  ..  2  147  483_647; 

type  Float  is  digits  6  range  -1.0*2.0**127  ..  0.5999?9*2. 0**127; 

type  Long_Float  is  digits  9  range  -1.0*2.0**127  ..  0.999999999*2.0**127 

type  Duration  is  delta  2.0**(-14)  range  -86_400.0  ..  86_400.0; 

Other  System  Dependencies 

LRM  Chapter  1. 

None . 

LRM  Chapter  2. 

Maximum  source  line  length  —  120  characters. 

Source  line  terminator  —  Determined  by  the  Editor  used. 

Maximum  name  length  —  120  characters. 

External  representation  of  name  characters. 

Maximum  String  literal  —  120  characters. 

LRM  Chapter  3. 


LRM  defined  pragmas  are  recognized  and  processed  as  follows: 

Controlled  —  Has  no  effect. 

Elciborate  —  As  described  in  the  LRM. 

Inline  —  Not  presently  supported. 

Interface  —  Supported  as  a  means  of  importing  foreign  language 
con?x3nents  into  the  Ada  Program  Library.  May  be  applied  either  to  a 
subprogram  declaration  as  being  specially  inplemented,  —  read 
Interface  as  Import  — ,  or  to  an  object  that  has  been  declared 
elsev^ere.  Interface  languages  su^Jorted  are  System  for  producing  a 
call  obeying  the  standard  calling  conventions  except  that  the  BEX 
instruction  is  used  to  cause  a  software  interrupt  into  the  kernel 
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supervisor  mode;  Assembly  for  calling  assembly  language  routines;  and 
Mil-Std-1750A  for  defining  built  in  instruction  procedures.  An 
optional  third  parameter  is  used  to  define  a  name  other  than  the  name 
of  the  Ada  subprogram  for  interfacing  with  the  linker. 

List  —  As  defined  in  the  LRM. 

Memory  Size  —  Has  no  effect. 

Optimize  —  Has  no  effect.  Optimization  controlled  by  conpiler 
ccmimand  option. 

Pack  —  Has  no  effect. 

Page  —  As  defined  in  the  LRM. 

Priority  —  As  defined  in  the  LRM.  Priority  may  range  from  0  to 
16366.  Default  priority  is  1. 

Shared  —  As  defined  in  the  LRM.  May  be  applied  to  scalar  objects 
only. 

Storage  Unit  —  Has  no  effect. 

Suppress  —  As  defined  in  the  LRM  for  suppressing  checks;  all  standard 
checks  ^may  be  suppressed  individually  as  well  as  "Exception_Info''  and 
"All  Checks".  Suppression  of  Exception_In£o  eliminates  data  used  to 
provide  symbolic  debug  information  in  the  event  of  an  unhandled 
exception.  The  All_Checks  selection  eliminates  all  checks  with  a 
single  pragma.  In  addition  to  the  pragma,  the  compiler  permits 
control  of  check  suppression  by  command  line  option  without  the 
necessity  of  source  chwges. 

System  Name  —  Has  no  effect. 

Number  declarations  are  not  assigned  addresses  and  their  names  are  not 
permitted  as  a  prefix  to  the  'address  attribute.  (Clarification  only). 

(Ejects  are  allocated  by  the  con?)iler  to  occupy  one  or  more  16  bit  1750A 
words.  Only  in  the  presence  record  representation  clauses  are  objects 
allocated  to  less  than  a  word. 

Except  for  access  objects,  'uninitialized  objects  contain  an  undefined 
value.  An  attenpt  to  reference  the  value  of  an  vininitialized  object  is  not 
detected. 

The  maximum  number  of  enumeration  literals  of  all  types  is  limited  only  by 
available  symbol  table  space. 

The  predefined  integer  types  are: 

Integer  range  -32_768  ..  32_767  and  is  is^lemented  as  a  1750A  single 
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precision  fixed  point  data. 

Long  Integer  range  -2_147_483_648  ..  2_147_483_647  and  implemented 
as  1750A  double  precision  data. 

Short_Intcger  is  not  supported. 

System. Min_Int  is  -2  147  483  648. 

System. Max_lnt  is  2_T47_783_?47 . 

The  predefined  real  types  are: 

Float  digits  6. 

Long_Float  digits  15. 

Short_Float  is  not  presently  supported. 

System. Max_Digits  is  presently  9  and  is  implemented  as  1750A  48-bit 
floating  point  data. 

Fixed  point  is  implemented  as  1750A  single  and  double  precision  data  as  is 
appropriate  for  the  range  and  delta. 

On  the  1750a,  index  constraints  as  well  as  other  address  values  such  as 
access  types  are  limited  to  an  unsigned  range  of  0  . .  65_536  or  a  signed 
range  of  -32_768  . .  32_767 . 

The  maximum  array  size  is  limited  to  the  size  of  virtual  memory  —  64K 
words. 

The  maximum  String  length  is  the  same  as  for  other  arrays. 

Access  objects  are  inplemented  as  ein  unsigned  16  bit  1750A  integer.  The 
access  literal  Null  is  inplemented  as  one  word  of  zero  on  the  1750A. 

There  is  no  limit  on  the  number  of  dimensions  of  an  array  type.  Array 
types  are  passed  as  parameters  opposite  unconstrained  formal  parameters 
using  a  3  word  dope  vector  illustrated  below: 


I  Word  address  of  first  element  | 
I  Low  bound  value  of  first  dimension  | 
I  Upper  bound  value  of  first  dimension  j 


Additional  dimension  bounds  «  follow  immediately  for  arrays  with  more  than 
one  dimension. 

LRM  Chapter  4. 

MachinejOverflows  is  True  for  the  1750A. 

Pragma  Controlled  has  no  effect  for  the  TLD  VAV1750A  Compiler  since 
garbage  collection  is  never  performed. 
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LRM  Chapter  5. 

The  maximum  number  of  statements  in  an  Ada  source  program  is  undefined  and 
limited  only  by  the  Symbol  Table  space. 

Case  statements  unless  they  are  quite  sparse,  are  allowed  as  indexed  jump 
vectors  and  are,  therefore,  quite  fast. 

Loop  statements  with  a  for  in^)leinentation  scheme  are  implemented  most 
efficiently  on  the  1750A  if  the  range  is  in  reverse  and  down  to  zero. 

Data  declared  in  block  statements  on  the  1750A  is  elaborated  as  part  of  its 
containing  scope. 

LRM  Chapter  6. 


Arrays,  records  and  task  types  are  passed  on  the  1750A  by  reference. 

Pragma  Inline  is  not  presently  supported  for  subprograms. 

LRM  Chapter  7. 

Package  elaboration  is  performed  dynamically  permitting  a  warm  restart 
without  the  necessity  to  reload  the  program. 

LRM  Chapter  8. 

LRM  Chapter  9. 

Task  objects  are  inplemented  as  access  types  pointing  to  a  Task  Information 
Block  (TIB). 

Type  Time  in  package  Calendar  is  declared  as  a  record  containing  two  double 
precision  integer  values;  the  dav  in  days  and  the  real  time  clock. 

Pragma  Priority  is  supported  with  a  value  of  1  to  16366. 

Pragma  Shared  is  supported  for  scalar  objects. 

LRM  Chapter  10. 

Multiple  Ada  Program  Libraries  are  supported  with  each  library  containing 
an  optional  ancestor  library.  'The  predefined  packages  are  contained  in  the 
TLD  standard  library,  ADA. LIB. 

LRM  Chapter  11. 

Exceptions  are  implemented  by  the  TLD  Ada  Compiler  System  to  take  advantage 
of  the  normal  policy  in  enbedded  con^juter  system  design  to  reserve  50%  of 
the  duty  cycle.  By  executing  a  small  number  of  instructions  in  the 
prologue  of  a  procedure  or  block  containing  an  exception  handler-,  a  branch 
may  be  taken,  at  the  occurance  of  an  exception,  directly  to  a  handler 
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rather  than  performing  the  time  consuming  code  of  unwinding  procedure  calls 
and  stack  frames.  The  philosophy  taken  is  that  an  exception  signals  an 
exceptional  condition,  perhaps  a  serious  one  involving  recovery  or 
reconfiguration,  and  that  quick  response  in  this  situation  is  more 
inportant  and  w^rth  the  small  throughput  tradeoff  in  a  real  time 
envi ronment . 

LRM  Chapter  12. 

A  single  generic  instance  is  generated  for  a  generic  body.  Generic 
specifications  and  bodies  need  not  be  compiled  together  nor  need  a  body  be 
compiled  prior  to  the  coit^jilation  of  an  instantiation.  Because  of  the 
single  expansion,  this  inplementation  of  generics  tend  to  be  more  favorable 
on  the  1750a  because  of  usual  space  savings  achieved.  To  achieve  this 
tradeoff,  the  instantiations  must  by  nature  be  more  general  and  are, 
therefore,  somewhat  less  efficient  timewise. 

LRM  Chapter  13. 

Representation  clause  support  and  restrictions  are  defined  above. 

A  comprehensive  Machine_Code  package  is  provided  and  supported. 

Unchecked_Deallocation  auad  Unchecked_Conversion  are  supported. 

The  inplementation  dependent  attributes  are  all  supported  except 
'Storage_Size  for  an  access  type. 

LRM  Chapter  14. 

Full  file  I/O  operations  are  not  supported  for  the  1750A.  Text_Io  and 
Low_Level_Io  are  supported. 


